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A PRIMEIRA REVISTA BRASILEIRA DE MICROCOMPUTADORES 




AS PRINCIPAIS LINGUAGENS, 

SUAS CARACTERISTICAS 

E CAMPOS DEAPUCAQAO 

PROGRAMACAO NAO E UMA 
SIMPLES UNIAO DE LINHAS. 
ALGUMAS TECNICAS SAO 
FUNDAMENTAIS 







Impressoras GRAFIX 

Urn universo maior de compatibilidades. 
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Ao escolher uma Impressora, opte por aquela que Ihe 
oferece, dentre outras qualidades, urn universo maior e total 
de compatibilidades, seja qual for o seu microcomputador, 
ho|e ou amanha. 



As impressoras matrlclalsGRAFIXlOOsSo compativeis 
com todos os microcomputadores padrSo IBM-PC, reprodu- 
zfndo com a mats alta qualidade dJsponlvel do mercado, to- 
das as imagens, graficos, textos e sinais gerados por micro- 
computadores e softwares. 

A alta tecnologia incorporada nas Impressoras GRAFIX, 
proporclona Impressdes nitidas, uniformes e sem dis- 
torcoes. 

fabricadas pot 

SCRITTA Efetrdnica Ltda. A I. Amazonas, 832 ■ Alphaville ■ Barueri ■ SP * CEP 06400 - Tel.: (01 1) 421-3422 - Telex: (011) 31029 - SCTT-BR 



Editorial 




J% maior parte dos programadores de 
r\ micros com os quais temos conta- 
to desenvolve a sua programacao em 
BASIC. Para esta situacao contribuiu 
nao so o fa to do BASIC ser uma lin- 
guagem extremamente poderosa e de 
facil aprendizado, mas tambem a proli- 
feracao de cursinhos independentes 
desta lingua gem, que sob certos a spec - 
tos, inclusive, dis force m a ideia de in- 
troducao ao processamento de dados. 
Vai dai que qualquer pessoa que quei- 
ra "entender um pouco ma is sobre o 
computador", na maioria das vezes 
opta pelo caminho ma is a mao (e nem 
sempre o ma is produtivo): aprender 
BASIC. 

A questao basica deve estar neste 
ponto: "entender mais o computador 
para que?". Se for para tornar-se um 
programador, otimo. Aprenda o BA- 
SIC ou qualquer outra linguagem que 
mais se adeque ao que voce quer. O 
i m porta nte, contudo, e que principal- 
mente os que estao comecando te- 
nham uma visao mais amp/a das lingua- 
gens de programacao; saibam das po- 
tencia/idades de cada uma delas e, as- 
sim, facam uma opcao menos "bito- 
lada". Esta edicao de MS pretende jus- 
tame nte is to: dar uma visao geral das 
linguagens mais utilizadas hoje, e tam- 
bem daquelas que estao sendo pre para - 
das para uso intenso no futuro. 

E sendo o assunto programacao, su- 
gerimos aos amigos interessados no te- 
ma uma leitura na materia "Programa- 
cao: um caso serio", de nosso cola bo - 
rador Maun'cio Costa Reis, aonde se 
discute a real necessidade de tecnicas 
nesta atividade. Existem excelentes 
programadores, mesmo autodidatas, 
que podem discordar de suas ideias; 
afinal, muitos colocam, o que e a tec- 
nica diante da criatividade? Para os 
que pensam desta forma, esta aberto 

espaco para o contra-argumento. Mas 
so um lembrete: a proposta do artigo 
nao e endeusar o formalismo ou o me- 
todo, e sim mostrar que, embora pare- 
ca simples, programar nao e so reunir 

1 in has. 
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O sorteado deste mes, que recebera uma 
assinatura anual da revista MICRO 
SISTEMAS, e Ricardo Rezende de Deus 
Barbosa. de Terezina-Piauf. 



DRIVES NO DISMAC 



Achei muito interessante o artigo de 
Esdras Leitao publicado no numero de outu- 
bro. Gostaria, no entanto, de fazer uma su- 
gestao: artigos desse tipo deveriam incluir, 
al6m do circuito, uma descrica"o do mesmo. 
Isso beneficiaria tanto leitores com poucos 
conhecimentos de hardware, que sa inicia- 
ram no assunto, como os entendidos, que 
teriam mais facilidade em adaptar a id&a as 
suas necessidades especff icas. 

A prop6sito de drives para o Dismac, 
gostaria de uma ajuda de seus leitores no 
sentido de adaptar o controlador de discos 
do D-8002 para densidade dupla. Alguem ja* 
fez isso? 

Jose" Ribeiro Pena Neto 
Belo Horizonte-MG 



/ SOS D-8001 / 

Primeiramente gostaria de parabeniza-los 
pelo excelente ni'vel de MS. (...) Fui usuSrio 
de urn micro TK-85 ha" aproximadamente 
um ano e meio, sendo que recentemente ad- 
quiri o D-8001 da DISMAC. Acostumado 
com a farta literatura e programas para a li- 
nha Sinclair, venho passando por seYios apu- 
ros por nao encontrar as informacoes que 
preciso nos manuais do D-8001. Muito em- 
bora saiba que o mesmo saiu de linha, acre- 
dito que muitos usuarios ainda necessitem 
de maiores informacoes ou de uma melhor 
fonte de pesquisas, como eu. Venho enta"o 
por meio desta, pedir-lhes, se possfvel, que 
publiquem o Mapa da ROM deste computa- 
dor e os principais enderecos das variaveis 
usadas pelo programa interpretador residen- 
te no mesmo. 
Edison Fernando Fonseca 
Jundiaf -SP 

Pica registrado seu pedido, Edison. Va- 
mos esperar que algum "companheiro de li- 
nha" tenha essas informacdes para te for- 
necer. 



/ TECLADO PARA CP-400 / 

Gostaria de saber se e possfvel adaptar 
um teclado profissional no micro CP-400, 
da ProlOgica. 
Fernando Pereira Gomes 
Goiania - GO 

De acordo com o nosso procedimento 
habitual, remetemos sua pergunta para o 
fabricante. Eis a resposta da empresa: 

"No mercado internacional existem di- 
versos teclados profissionais desenvolvidos 
para os micros da linha TRS 80 modelo II 
Color, de onde se originou o projeto do 
CP-400. 

Aqui no Brasil, 6 possfvel que os fabri- 
cates de teclados jS os ten ham disponfveis 
pore'm nao sSo de nosso conhecimento. Vale 



ressaltar que o teclado profissional possivel- 
mente nSo caber a dentro da caixa do 
CP-400, a menos que se faca alguma altera- 
cao nesta, ja que o teclado do CP-400, sen- 
do um teclado de membrana, requer um es- 
paco bem menor para ser instalado." 

Sidnei Stifelmann 

Coord, de Produto /Marketing de CP's 

/ USUARIOSVIC-20 / 

Gostaria de pedir-lhes que publiquem o 
meu enderepo, para que usuarios do VI C- 
20 da Commodore venham a se comunicar 
comigo para troca de ideias e programas: 
Rua Bar§o de Campinas, 635 - Apt? 63 
Campos Elfseos 
CEP 01 .201 - Sao Paulo - SP 
Srjrcjio William Salomon 
Sao Paulo - SP 



/ SOS TOTAL / 

Possuidor de um TK 85 e de um apare- 
Iho de vi'deo cassete, pergunto se 6 possfvel 
utilizar a imagem gerada pelo computador 
na tela da televisao para gravar na fita de vi'- 
deo cassete, a fim de poder introduzir nesta 
fita, por exempts: arquivo de seqiiencia de 
imagens ja" gravadas; textos etc. Ja tentei tal 
procedimento ligando a safda da antena da 
televisao a entrada do vfdeo e tambem dire- 
tamente, ou seja, o f io do TK de vfdeo para 
a entrada no vfdeo cassete e na"o obtive su- 
cesso. 

Sendo medico e ja' tendo filmado cirur- 
gias em vfdeo, gostaria, como mais um exem- 
plo, de introduzir comentarios na fita, uti- 
lizando a tela com texto em scroll. 
Ayrton de Andrea Filho 
Sao Paulo - SP 



/ QUASAR IV / 

Queria que a MS publicasse mais progra- 
mas da linha TRS-80 Color. 

Quero tamb6m parabeniza-los pela publi- 
cac§o de Quasar IV (MS nP 42), pois meu 
amigo tern um TRS-80 III com 2 drives e 
depois de algum tempo de digitaca"o, muito 
cansativa para falar a verdade, mas de lista- 
gem em listagem chegamos ao final e des- 
cansamos diante de ta"o completo jogo. 
Meus parab6ns! 

Ricardo Rezende de Deus Barbosa 
Teresina - PI 



USUARIOS SPECTRUM 



Adquiri um ZX-Spectrum e, em materia 
de software, estou debilitado. Gostaria de 
me corresponder com usuarios do mesmo 
micro, pois estou interessado em programas 
e perifericos. 

Cartas para Caixa Postal 903. 

CEP 60000 - Fortaleza - CE 
Carlos Furtado de Arruda 
Fortaleza - CE 



Envie suas correspondencies para: ATI — 
Analise, Teleprocessamento e Informatica 
Editora Ltda., Av. Presidente Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030, Secao Cartas/Redacao 
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A Cobra coloca 
cinco novos produtos 

no mercado. 
E nao cobra nada 

por eles. 

Os programas que voce vai conhecer neste anuncio foram desenvolvidos por software 
houses cadastradas pela Cobra, para permitir que voce obtenha maior proveito 

do seu computador Cobra. 

Para levar qualquer um deles para sua empresa, voce nao precisa pagar nada. Basta comprar 

um computador Cobra e levar um software de brinde. Mas nao demore, porque esta 

promocao e por tempo limitado. 
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Desenvolvido por MiniMi- 
cro para o Cobra 210, o Sistema 
de Proeessamento da Palavra 
possui um poderoso conjunto 
de comandos de edicao e de 
proeessamento que o coloca en- 
tre os processadores de texto 
mais completos no mundo dos 
microcomputadores. 

Fazendo uso de regras de 
morfologia da lingua portugue- 
sa e realizando funcoes logicas e 
matematicas, permite edicao fa- 
cil e impressao de qualquer tipo 
de documento: corresponden- 
cias, malas-diretas, conlratos, 
manuais, livros, etc 

Dispoe internamente de 
uma linguagem de proeessa- 
mento que auxilia o usuario nas 
tarefas de automatizacao dos 
servicos de secretaria. 
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Desenvolvido pela SOFT 
CONSULTORIA. para o Cobra 
210, o DIALOG e um sistema 
gerenciador de banco de dados, 
inlegrado a uma linguagem de 
4? geracao, que permite a voce 
criar seus bancos de dados e 
manipuiar os seus dados sem 
que sejam necessarios progra- 
mas especificos e demorados. 
Voce pensa naquilo que quer fa- 
zer e, atraves de um verbo em 
Portugues como CRIE. ANEXE, 
L1STE, INDEXE, PESQUISE, 
COPIE, TOTALIZE etc, o DIA- 
LOG rapidamente executa seu 
comando. 

Se voce preferir, a SOI-T 
dispoe de uma versao com os 
comandos em Ingles. 

O DIALOG tern embutido 
em sua linguagem um amplo 
conjunto de funcoes para traba- 
Ihar com numeros e cadeias de 
caracteres. desde as mais sim- 
ples ate as mais complexas, tais 
como LOG e EXP. 




Desenvolvido pela COM- 
PLi TEL Computadores e Teleco- 
municacoes para o Cobra 210, o 
BUS1NESS-CALC e um produto 
orientado para modelagem e si- 
mulacao financeira, de planeja- 
mento, acompanhamento, orca- 
mento e previsao, manipulando 
grande volume de dados sob a 
forma de tabelas ou matrizes. 

Caracteristicas especificas 
do BUSINESS CAIC permitem 
que o usuario utilize plenamente 
as facilidadesdisponiveis, prescin- 
dinclo de qualquer conhecimen- 
to especifico de computador ou 
de proeessamento de dados. 




Desenvolvido pela COM- 
PUTEL para o Cobra 210, o 
BUSINESS-FILE e um produto 
orientado para organizar e ar- 
mazenar dados (banco de da- 
dos) e dar acesso a eles de for- 
ma simples e eficiente. 

Sua caracteristica de multi- 
volume permite a construcao de 
banco de dados, mesmo que o 
usuario tenha somente 1 drive 
de disco flexivel. 

O BUSINESS-FILE transfere 
dados para o BUSINESS-CALC 
e, juntos, sao uma poderosa fen-a- 
menta para armazenagem, recu- 
peracao, manipulacao, geracao 
de relatorios e execucao de cal- 
culos sobre uma base de dados. 



PLANX 

Desenvolvido pela SISTE- 
MAS LOGICOS para o Cobra 
480, o PLANX e um sistema 
avancado para modelagem e si- 
mulacap financeira em compu- 
tador. E composto de um inter- 
pretador de comandos, um edi- 
tor de textos, um modulo de 
avaliacao/analise/consolidacao 
de modelos, um gerador de re- 
latorios e um modulo de gestao 
automatic? de arquivos. 

A entrada pode ser feita in- 
terativamente ou em batch. 

O PLANX emite relatorios 
com o resultado de avaliacao de 
modelos e o resultado de simu- 
lacoes. Mensagens interativas e 
listagens auxiliares complemen- 
tam os relatorios. 
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A marca da tecnologia brasileira. 
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Poucas novidades na Expo Soft 



Realizada em final de junho no Centro 
de Conven?6es Rebousas, em Sao Pau- 
lo, a II Expo Soft nao trouxe reais no- 
vidades. Seus 30 expositores contaram com 
um razoavel publico de intercsse claramente 
definido: software para 16 bits. 

Os micros de 8 bits cstavam presentes sim, 
mas em incontestavel minoria. A ENG (tel: 
(Oil) 813-7570) mostrou aplicativos em En- 
genharia, Topografia c Hotcis. Para TRS, os 
pacotes custam em mddia 50 ORTN, e em CP/ 
M 60 ORTN. Ja a software-house Acmon (tel: 
(021) 233-3826) apresentou o JUR-SIS, siste- 
ma modular em CP/M, para escritorios de ad- 
vocacia. 

Os representantes dos "best -sellers" norte- 
americanos fizeram sucesso. Na Compucenter 
(tel: (011) 255-5988), a atencao especial era 
para os produtos da Microsoft: Chart, Multi- 
plan e Linguagens (compiladores BASIC, 
118.6 ORTN; Fortran, 105 ORTN; Pascal, 
92.4 ORTN e C, 149 ORTN). O processador 
de textos Word custa 113.4 ORTN, e a em- 
presa pretende traduzir as telas c documen- 
taqUo da versao 2.0 ate o final do ano. 

A Intercorp (tel: (021) 205-6994), repre- 
sentante da Lotus, cm conjunto com a loja 
Sacco (tel: (011) 852-0799), distribuidor cm 
SP, lamjavam novos features para o 1-2-3 e o 
Symphony: Recalc Plus, que usa o co-proccs- 
sador 8087 e obtem ganhos de velocidade; o 
Password, para protecao das planilhas c o 
Double DOS, multitarefa. Tais utilitarios cus- 
tam, em media, 12 ORTN cada. 

Lancando campanha contra pirataria, a 



Brasoft (tel:(011) 231-2555), representanteda 
americana Micropro , mostrou os pacotes Chart- 
star (77 ORTN); Infostar (80 ORTN) e Clac- 
star (34.2 ORTN). O carro-chefe de vendas, 
processador de textos Wordstar, em sua ver- 
sao 3.4, inclui o programa Mail Merge e 6 co- 
mercializado por 99 ORTN. O Wordstar 2000, 
para linha IBM-PC, aprescnta funcoes matc- 
maticas e dicionario eletronico acoplado, e a 
Brasoft pretende lan?ar sua versao cm portu- 
gues na Feira da Sucesu, em sctembro. Tam- 
bem la sera aprcscntado o Wordstar 2000 Plus, 
que integra funcoes de comunicacao, banco 
dc dados e geracSo de l'ndices pelo prego de 
135 ORTN. 

Tambem integrando funcoes e concorrcn- 
do dirctamente com o Symphony, o Frame- 
work, da AshtonTate, era demonstrado no 
stand da Datalogica (tel: (011) 283-0355), 
que o comercializa por 260 ORTN. A ver- 
sao deste pacote ja' em portugues sera lanca- 
da em setembro. Tambem cram demonstra- 
dos os softwares dBase II (8 bits, a 150 ORTN) 
e dBase III (16 bits, a 260 ORTN). 

f A emprcsa SPI (tel: (011) 884-3144) tam- 
bem atacou de integrado com o sistcma Open 
Access, que possui modulos para graficos, 
banco de dados, processador dc texto, plani- 
lha, comunicacSes c agenda. O Open Access 
custa 258 ORTN e foi desenvolvido pela SPI- 
Software Products International Inc., sediada 
na California. 

A PC Software (tel: (021) 262-6553) fez 
sucesso dando gratuitamente, aos que se apre- 
scntassem em seu stand com um disqucte, o 



software PC-spool, com capacidade de 8 Kb. 
O processador dc texto ABC (16 ORTN) tera, 
em breve, nova versao, com maior gerencia- 
mento de memoria, dicionario c modulo de 
mala-direta. 

Atuando na linha de pacotes administra- 
tivos para 16 bits, a empresa Fluxo (tel: (021) 
232-7718) mostrou versoes atualizadas de 
seus sistcmas dc gestao financeira, estoque, 
faturamento e contabilidade. 

A Itautec voltou a enfatizar sua poli'tica de 
apoio aos produtorcs de software, c mostrou 
em seu stand diversos sistemas no 1-7000 PCxt. 
Para simulates financeiras c geracao de rela- 
torios e graficos, cram demonstrados dois sis- 
temas: o MicroFCS, rcpresentado pela Exec- 
plan (tel: (011) 284-0766) e o concorrentc 
IFPS/Pcrsonal, da americana Execucom e re- 
vendido no Brasil pela DSS (tel: (011) 814- 
3610). No mesmo stand, a NS Microcompu- 
tacao (tel: (011) 280-0433) apresentou o Mul- 
tilink, sistcma multiusuario e multitarefa. 

A Scopus tambem cedcu seu espaco a de- 
monstrates dc pacotes dcsenvolvidos para o 
Nexus. A IPL, antiga Binah, mostrou seu sistc- 
ma de Folha de Pagamcnlo intcragindo com 
relogio dc ponto, e a Tecnosoft oferecia o 
SICOP/TS, para controle dc Open Market. 
Um produto que fez sucesso foi o "Z", soft- 
ware de comunicacao da Humana (tel: (011) 
211-8216). O Z pcrmite ligacjTo do micro a 
varias bases dc dados ou a mainframes da IBM, 
apresentando recursos como capacidade grafi- 
ca e discagem automatica com repeticao op- 
cional. O pre90 ao usuario final e de 90 
ORTN. 



o que e bom 
dura muito ! 




TOMADA DE PROTEQAO am 10 A 

am 10A, fabricado pela ANAMED, e um 
conjunto de tomadas com protecao contra 
picos de alta tensao na rede eletrica e curto- 
circuitos. Pode ser operado em 110V ou 
220V. Pr6prio para ser utilizado com mi- 
crocomputadores, instrumentos e equipamen- 
tos eletronicos em geral. 

anamed 

Industria, Comercio, Importapao e Exportacao Ltda. 
Rua Bage, 103 Tel.: (011) 572-6537 Telex: 24740 



C0NVERS0R ANAL0G0-DIGITAL 




O am 13, produzido pela ANAMED, e um 
conversor analogo- digital de 12 bits, com- 
pativel com a linha Apple II. Permite a con- 
versao de ate 16 canais com ganho ajustavel 
em 8 niveis, controlados por software. Sua 
alta resolucao, permite a analise de diversos 
tipos de sinais, possibilitando o microcom- 
putador compor graficos, curvas de tenden- 
cia, tabelas, etc. 

ANAMED - INDUSTRIA E COMERCIO 
. IMPORTAQAO E EXPORTAQAO 
ana n\ £>ri R - Ba s6, 103 - cep: 04012 

aim«lCU Te| . (011) 572-6537 
clfYcliTlCQ Vila Mariana - Sao Paulo (SP) 



Amigo resolve 
junto com voce 
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Scja quul lor .i sua nccessidade dc calculo. voc£ 
semprt- pcxlc contar com as calculations clctronicas 
Sharp. Mstudantcs C prt>fissionais das areas tccnicas 
cnconlram nos modclos da linha cicnttfica funcoes 
cstatusticas c trigotiomctricas, alcm dc outros avancados 
recursos para sulu<,'fio dc seus problcmas, 

J a nas ativtdadcs dc comdrcio, industria c scrvicos, a 
Shar|) coloca a sua dispostt;at> mmlclos com visor, 
imprcssora ou imprcssora'visor c a scguranca dc 
calculos nipitlos c prccisos, aliadijs a robustcz das 
calculadoras dc mcsji Sluirii, para lodas as 
funcoes dc cscritorlo. Os motlelos da linha pcssoal 
ofercccm solucocs rapidas c preeisas na cscola, cm casa. 
nas vtagens c no comercio. 
Um tcxJas as linhas, a mesma tccnologia que criou o 
Pocket Computer, um pixleroso eomputadorde bolso, 
aprcscntado em tres versoes, II .5 e 1 .8 K bytes, com 
capacidade de etalx)racao de graficos a cores e 
interface pant impressont e gra\ r acao em cassete. 

Kscolha am modelo dentro tla linha de calculadoras 
clctronicas Sharp e ten ha junto de voce a maior rede 
de assistencia tccnica do pais, I jgue unaa Sharp. Voce, 
rcalmente. nao esta sozinho. 
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Proiltutda na txmm Franca de Minaui 

LIGUE UM AMIGO. 



PC's UNI-VOS. 

DESTA REDE VOCE NAO ESCAPA 

O TEL 2608 e o unico MULTI-USUARIO capaz de lormar uma rede entre micros de 16 

e 8 bits, com ate 8 estagoes de trabalho. A ele voce liga o TEL 2605 ET> PC, XT 

e os demais PC's compativeis. 

O TEL 2608 opera com uma unidade Winchester de 67 MB e na bora de 

expandir o seu sistema, voce pode con tar com q TEL 2616, que trabalha 

com duas unidades Winchester de 67 MB e 16 estacoes. 

Entre nesta rede, desta voce nao eseapa. 



2605-PI 



8605-XT 




!] j ■■■■■■■>> iX il 



TKI. 1800 A: 

• Proccssador Z80A 4 MHZ. 64 KB de 
RAM e 4 KB dc HP ROM. 

• 2 portas scriais RS-232C sirscronas ou as- 
sincronas. 

• I porta RS-422 com taxa dc 800 Kbits 
p/segundo. 

• Video 12" dc fosforo \ r crde. Tcxto c gra- 
fico de media rcsolucao com (ela de 24x80 
caractcrcs c 25? lirtlia cstado/usuario. 

• leclado dcsiacavcl COitl ittlmirko fcdtl 
zido com 1] tectas de fttncao programs - 

'.CIS 



TEL 1802: 

• Processador Z80A 4 MHZ. W KB de 
RAMe4KBdeKPROM. 

• 2 porf&sseritris RS- 232tv sincronaiou as- 
sincronas. 

• I porta RS-422 com ta\a dc 800 Kbits 

• video 12" de fosforo vcrde. Tcxto c gra- 
fico tic media rcsolucab corn I eta de 24 \ Si i 
caractcrcs e 25 - 1 linha de cm ado/ usuario. 

• 2 tmidades de disco flexiveis 5 1/4" 48 
TPI 360 KB format on por unidade ou na 
versfio l802Dcom I disco flexivd e I disco 
rigido Winchester 5 1/4" dc 19. 14 MB. 



TKI 1 806: 

• Processador Z8QA 4 Mil/ 64 KB de 
RAM. 

• 2 port as seriais RS-232C sincronas ou ;is- 

\mcro:i;r- 

• I porta paralela padrao Centronics 

• 6 portas RS-422com ta\;i dc 800 Kbils. 

• I unidade dc disco flexivel 5 I 4" 360 KB 
formatado. 

• I unidade de disco rigido Winchester 5 
1/4 " 19,14 MB podendosercxpandido ate 
3S.2M MB 



TEL 2605: 

• proccssadOC Intel 8088 4.77 MHZ. Op- 
tional mais um 8087. 

• 256 KB RAM expanded ate 640 KE 

• na vcrsao 2605 PC, 2 unidades de disco 
flex is cl 5 I /4" dc 360 KB forrnalado ou na 
\ efsfio 2605 XT com 1 disco flexivel c I dis- 
co rigido Winchester 5 1/4" 12.75 MB. 

• I porta serial RS-232C c I porta paralela 
padrao Centronics. 

■ Monitor de video 12" (RGB ou video 
composto) ajustavel com alia rcsolucao 
gi afica de 640 x 200 pixels. 

• Teclado dcstacavel, numcrico rcduzido, 
mais lOicclasdefuncan programavcis. 

• 5 slots de expansao padrao IBM. 



TEL 2608: 

• Processador Intel 80186 8 MHZ c Z80A 
dc 4MHZ. 

• 512 KB RAM. cxpandivd ate 1MB. 

• 1 disco flexivel 5 1/4" com 360 KB Ibr- 
matado. 

• 1 disco rigido Winchester 5 1/4" com 67 
MB. 

■ 2 portas se riai s RS • 232 C com taxas de 50 
a 9600 bits p/scgundo. 

• 1 porta par alcla padrao Centronics. 

■ 8 portas RS -422 com taxade transmLssSo 
de 800 Kbits p/scgundo c na versao 2616 
com 2 discos Winchester fazendo 134 MB, 
e 16 portas RS-422. 




«A 



^Telsist 



Av. das Americas. 44.10 — grupo 304 
Tcls.- (02U 325-9300 — 325-4122 — 
Telex (021) 32625 ESTL — CEP 22600 
Rio de Janeiro — RJ 
Filial Rio de Janeiro 
Av, Rio Branco. 43 IK" andar — 
Tel.: (021) 233-5722 — CEP 20090 
Filial S. Paulo: Av Brasil, 1992 
Tels.: (Oil ) 855-6457852 9295 
CEP 01480 — Sao Paulo - SP 



O micro fazendo arte 



Neste artigo, veja como alguns professionals estao utilizando 
os recursos graficos dos micros para gerar trabalhos artisticos 



Apesar dos potentes recursos 
graTicosencontrados em varios 
modelos demicrocomputado- 
res, princtpalmente em equips 
mentos da linha Apple e sim Hares ao 
IBM PC, estes ainda sao bem pouco uti- 
lizados. Na maioria das vezes, isto acon- 
tece devido ao desconhecimento por 
parte dos usudrios, e pela falta de inte- 
resse t por parte de software-houses e fa- 
bricates de periftfricos, em desenvolver 
programas ou hardware auxiliar para ex- 
ploracao desses recursos. Diante deste 
panorama, aqueles que tern interesse no 
desenvolvimento da £rea grgfiea tern que 
faze-Io por conta pr6pria. Prova disto 
sa*o os exemplos que temos a seguir de 
profissionais que se dedicam a explora- 
cffo dos recursos graTicos cm seu dia a 
dia, 

Em Janeiro ultimo, realizou-se no 
Museu da Imagem e do Som de S So Pau- 
lo o Segundo SalSo de Arte Content po- 
rinea que, entre as obras expo&tas, trou- 
xe ao pilblico uma novidade; a utiliza- 
cao do microcomputador. A ide'ia foi do 
arquiteto Lino Henrique Ribolla, cria- 
dor de um program a que a partir da mis- 
tura aleat6ria de elcmetitos blsicos, tais 
como tracos e figuras geome'tricas, faz 
difeientes composieoes no micro. 

Esta foi a primeira vez que um micro 
participou de um sala"o dc artes no Bra- 
sil, e Lino continua desenvolvendo este 
tipo de trabalho, Ele hoje utiliza um 
Exato Pro, da CCE, e desenvolve todos 
os seus programas, sendo a obra final o 
resultado deste software. Quanto k pos- 
sibilidade de comercializacffo desse tipo 
de "quadro eletrdnico". Lino Henrique 
explica que a unica forma viavel de ven- 
da sen a atraves de disquetes, ja que as 
obras sa"o feitas para mostrar o cariter 
processus! e, quando estdticas, ja pas- 
sam para uma outra iinguagem. Atual- 
mente. Lino csta utilizando o micro 




ComposipTo n? /, um dos quadras eletrdnicos de Lino exposto no Saltfo PauUsta, 



para fazer iogotipos e animacSO para 
emprcsas e partindo para a criacffo de 
ilustra? Oes para rcvistas. 

Outros dois artistas que reccnte- 
mente descobriram a possibilidadc dc 
uso do micro nesta area sa"o Gilson Al- 
cantara e Fernando Lebblo, Gilson 6 
artista plastico e tern o computador 
como um instrumento atravds do qual 
desenvolve a unia'o com outras lingua- 
gens como o desenho ou a pintura. A 
primeira parte do processo 6 a criacffo 
dc gravuras. "Assim como existem gra* 
vuras em metal, papel etc., faco gravuras 
eletrdnicas, para, a partir daf, promovcr 
o dialogo entre outras linguagens", ex- 
plica ele. Um dos trabalhos que clcs vein 
desenvolvendo 6 a impressfo de imagens 



criadas pelo micro e, posteriormentc, a 
pintura sobrc a imagem impressa. Fazem 
tambtoi a fusffo de imagens entre uma 
tela dcsenhada pelo micro e um objeto 
real. Fernando £ fotografo e faz o re- 
gistro das imagens geradas na tela crian- 
do posters, quadras etc. Para a criaeffo 
das imagens, Gilson e Fernando uttlizam 
programas graficos como o Koala e 
Blazing Paddles e agora pretendem par- 
tir para aplicacoes comerciais como, por 
exemplo, o desenvolvimento de filmes 
em videocassete para treinamento em 
empresas, usando recursos de animacao 
deeditores graficos. 

Uma outra experiencia na area grdfi- 
ca cstg sendo realizada no Credicard, em 
SSo Paulo. Sdrgjo Tadeu Martinho, da 



drea de desenvolvimento tgenico da em- 
presa, estd desde o final do ano passado 
usando o micro como ferramenta para 
implementar as t^cnicas tradicionais de 
audio visual. Ao invds do velho retropro- 
jetor com transparencia, Sergio passou 
a utilizar programas grdficos para a cria- 
ca"o de imagens e telas mais atraentes, 
que sffo apresentadas em reunifies da di- 
retoria e cursos internos. Entre os pro- 
gramas utilizados por ele estd o Picture 
It, que cria graficos com base nas espe- 
cificacoes fomecidas pelo usu£rio. Os 
graTicos criados sao armazenados em um 
disquete, e este 6 colocado em um apa- 
relho chamado videoshow, que na"o exis- 
te no Brasil. 

videoshow e composto por uma 
UCP de 16 bits e interpreta os dados ge- 
rados pelo software, melhorando o sinal 
de video e possibiUtando ainda maior 
variacSo na tonalidade das cores. Sua li- 
gacSO 6 feita atravds da porta serial do 
micro de 16 bits que, no caso do Credi- 
card, e" um I 7000 PCxt, da Itautec, e o 
pr6prio videoshow 6 ligado em uma 
televisUo, monitor de vfdeo, telffo ou 
mesmo num vfdeo cassete. 

Alguns audiovisuais desenvolvidos no 
Credicard foram criados com um micro 
de 8 bits, o AP II, da Unitron, e com o 
programa Executive Briefing System, 
que possibilita a Gria^SQ de telas e dese- 



nhos grdficos. Sergio montou um curso 
sobre microcomputadores com o uso 
deste equipamento e pretende intensi- 
flcar o trabalho com a apresenta9a"o des- 
se curso nas filiais do Credicard, utili- 
zando fitas cassete de vfdeo ou, futura- 
mente, a liga9ffo dos micros ao compu- 
tador central da empresa. Um dos traba- 
lhos feitos pelo Credicard foi desenvolvi- 



"Entramos de cabega na 

area de micros, e movidos 

pela curiosidade,descobrimos 

o potencial de animacao 

da linha Apple" 



do em conjunto com a software -house 
paulista Art Sistemas, que, como nenhu- 
ma outra, acreditou na area graTica e 
hoje possui uma mini-produtora interna 
para a cria9§0 de comerciais para a TV 
com o auxflio do micro. 

A Art Sistemas 6 formada por quatro 
socios, todos tdenicos das £reas de enge- 
nharia e administra9a"o, vindos de em- 
presas onde trabalhavam com compu- 
tadores de grande porte. "Resolvemos 



entrar de cabega na drea de microcompu- 
tadores e, atravds de uma simples brinca- 
deira, movidos pela curiosidade, desco- 
brimos as possibilidades de anima9So 
com um micro da linha Apple", conta 
Eliandro Morais, um dos s6cios. 

Hoje, a carteira de clientes da mini- 
produtora montada dentro da Art Sis- 
temas 6 bastante respeitdvel e nela cons- 
tam nomes como, Fiat, Volkswagen, Co- 
mind Morumbi Shopping, entre outros. 
A cria9ffo dos amincios 6 feita pelas em- 
presas, ou por suas agendas publicitd- 
rias, em conjunto com o pessoal da Art. 
Para a cria9S0 das imagens, sSo usados 
programas como o Koala e perifdricos 
espeefficos como o mouse. software 
de anima9So foi totalmente desenvolvi- 
do pela. Art Sistemas e, segundo Elian- 
dro, 6 baseado no mdtodo tradicional 
de edi9a"o tela a tela. Para aprimorar o 
sistema de cria9ao e anima9^o de ima- 
gens, os profissionais da Art desenvolve- 
ram um novo micro baseado em um 
compatfvel com o Apple, com nova 
parte de vfdeo, sistema profissional 
PAL/M para emissa"o de imagens e possi- 
bilidade de maior varia9So na tonalidade 
das cores. Hoje eles pretendem, ainda, 
implementar o hardware do equipamen- 
to para aumentar a capacidade de reso- 
lu9§o grdfica e a quantidade de cores 
disponfveis. 
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MICRO SISTEMAS, agosto/85 



Uma descrigao das 
•linguagens 



de programagao mais 

utilizadas, com as 

suas principals 

caracteristicas e 

campos de aplicagao 



Linguagens de 

programagao: entre o 

homem e a maquina 






As linguagens de programagao sa"o conjuntos de instrucoes 
que surgiram da necessidade de comunicacao entre o homem e 
o computador. Quando apareceram os primeiros computado- 
res, no final dos anos 40, tornou-se necessario programaMos. 
Isto era feito diretamente (ou seja, na linguagem da mdquina), 
inserindo-se os dados por meio de chaves, localizadas no pai- 
nel de controle do computador, visualizando-os por meio de 
lampadas. Numa fase posterior de evolucao dos computadores, 
tornou-se possivel inserir os dados diretamente atraves de car- 
tao ou fita perfurada, o que reduziu o trabalho de programa- 
gao da maquina. 

Porem, como a maquina so entende a notagao bina'ria, fi- 
caria extremamente dificil e cansativo programa-la, porque 
os dados e enderecos sao representados em palavras (seqiien- 
cias de Os e Is), cujo comprimento varia de um computador 
para outro. Ainda que a palavra seja pequena (8 ou 16 bits), 
a quantidade de instrucoes e dados necessdria para fazer um 
pequeno programa e grande, tornando maior a possibilidade de 
cometer erros e dificultando a localizacao (depuragao) dos 
mesmos no programa. 

Desta forma, foi necessario desenvolver uma nova maneira 
de comunicacao, denominada linguagem Assembly, conheci- 
da tambem como Assembler, que e constituida de mnemoni- 
cos (palavras que facilitam a memorizacao), representando 
uma ou mais instrucoes binarias, tais como soma (ADD) ou 
subtracao (SUB), o que facilita a compreensa"o. Porem, como 
o computador na"o esta adequado a receber essas instrucoes, foi 
criado um programa denominado montador (Assembler) cuja 
funcao e transformar estes mnemonicos em codigos bindrios. 

Entretanto, a portabilidade destes programas e reduzida, 
pois os c6digos que correspondem aos mnemonicos sa"o carac- 
ten'sticos a cada processador de computador (8080, 6502, 
Z-80 etc.), nao permitindo a utilizacao de programas de um 
equipamento em outro. Isso obriga o programador a reescre- 
ver uma rotina adequada a uma maquina, caso queira utilizd- 
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la em outra, mesmo que ambas as mdquinas possuam o mesmo 
microprocessador, se os enderecamentos de memoria e E/S 
(Entrada/Safda), por exemplo, forem diferentes. 

A etapa seguinte, em meados da decada de 50, foi o surgi- 
mento das linguagens de alto ni'vel, que possuem uma estrutura 
mais proxima as linguagens naturais, composta de palavras de- 
senvolvidas, no caso, em ingles, desempenhando funcoes de 
atribuica"o, comando e teste alem de funcSes matemdticas e 
operadores logicos, o que permite escrever programas cientifi- 
cos, comerciais ou de qualquer aplicagao especifica. Essas lin- 
guagens de alto ni'vel nao sa"o reconhecidaspelamdquina, crian- 
do a necessidade de programas que fagam a conversao para o 
c6digo bindrio. Estes programas sao chamados tradutores e po- 
dem ser um compilador ou interpretador. O primeiro e um 
programa que gera outro programa em linguagem de mdquina 
(programa-objeto) a partir da tradugao integral de um progra- 
ma em linguagem de alto ni'vel (programa-fonte), tendo como 
caracteristicas bdsicas, o grande espago de memdria ocupado, 
o rigor sintitico na analise do programa fonte e a velocidade 
de execugao do programa-objeto. Ja os interpretadores fazem a 
leitura e execugao simultanea de cada linha do programa-fonte, 
permitindo ao programador saber, de imediato, se uma instru- 
gao e permitida ou nao. 

A partir dai tambem foram desenvolvidas linguagens orien- 
tadas para problemas especi'ficos, dentre as quais o RPG, LPF 
e ICES que permitem a um profissional especializado (econo- 
mista ou engenheiro, por exemplo) solucionar problemas como 
produzir relatorios, formatar um programa ou calcular a estru- 
tura de um predio com maior eficiencia e precisao. Isto porque 
a linguagem nao exigira mais do que os seus conhecimentos es- 
peci'ficos a area do problema em quest^o, sem que o profissio- 
nal tenha que possuir uma profunda experiencia em programa- 
gao. 

A seguir, sintetizaremos as principals caracten'sticas, evolu- 
gao, campos de aplicagao e perspectivas futuras de algumas das 
principals linguagens de programagao utilizadas no Brasil. 

MICRO SISTEMAS, agosto/85 



APLIOUE NUM NEGOCIO DUE NAO QUEBRA 
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SISTEMA NOBREAK 6UARDIAN 



EN ERG I A A TODA PROVA 



A instalagao de um sistema No-Break 
Guardian e um investimento seguro, 
com retorno garantido a curto prazo. 

A moderna tecnologia utilizada e 
propria e 100% nacional, garantindo a 
necessaria confiabilidade no 
suprimento de energia ao CPD, evitando 
as inesperadas quebras que, mesmo 
quando por fragoes de segundos, 
causam prejuizos e aborrecimentos. 

Sistema No-Break Guardian, um 
negocio que nao quebra. 



Capacidades disponiveis: 

• Linha Basica (com chave estatica e 
modulos tiristorizados): 3; 5; 7.5; 10; 
15; 25; 35; 50; 75 e 100 KVA. 

• Linha Economica:0.25; 0.4; 0.6; 1; 
1.5; 2.5; 5; 7.5 e 10 KVA. 





GUARDIAN 

EQUIPAMENTOS ELETRONICOS LTDA. 

Rua Dr. Gamier, 579 - Rocha • CEP 20971 • Rio de Janeiro, RJ 

Tels.: Geral: PABX (021) 261-6458 / Vendas: PABX (021) 201-0195 

Telex (021) 34016 

Sao Paulo: Tel.: (011) 270-3175 



LINGUAGENS DE PROGRAMAQAO: ENTRE O HOMEM E A MAQUINA 




FflKfetttfLEF! 



Foi a primeira 
linguagem nao 
exchisivamen- 
te numerica 
desenvolvida para programaca"o de com- 
putadores, devido a necessidade de tor- 
nar mais agil o ato de inserir dados, ins- 
trucoes e comandos no computador. 
Isto porque, como vimos anteriormente, 
a linguagem de maquina e muito difi'cil, 
ja" que e necessdrio dominar todos os 
codigos que estao em binario e suas res- 
pectivas acoes. Alem disso, e urn proces- 
so lento, pois devemos controlar todas 
as sequencias de operaca"o, estando as- 
sim sujeitos a erros que dificultam enor- 
memente a depuracao. 

Assembler e uma linguagem com- 
posta por instrucoes mnemonicas que 
sintetizam uma ou mais instrugoes em 
codigo de mdquina. Por exemplo, A = 3 
e B = 5 equivalem a LD A ,3 e LD B = 5, 
sendo que LD equivale a instrucao Load 
(armazenar) e A,B sao registradores 
(unidades de memoria onde sao guarda- 
dos valores numericos). Ja a instrugao 
C = A+B corresponderia a LD,A,3; LD 
B,5;ADD a,B e LD C,A. Como pode- 
mos notar, ao ser somado o valor de B 
com A, o resultado ficou armazenado 
no registrador A, sendo transferido para 
C conforme determina a atribuicao. £ 
importante ressaltar que a linguagem As- 
sembler so trabalha com registradores e 
posicSes de memoria (areas de memoria 
correspondentes a um endereco), seja 
carregando um valor ou conteudo de 
uma posicao de memoria, somando, sub- 
traindo, comparando ou movendo para 
um enderego determinado. 

A linguagem Assembler e denomina- 
da de baixo nivel porque e pr6xima da 
linguagem de maquina. Destina-se ao de- 
senvolvimento de aplicac5es especi'ficas 
e utilitarios como montadores, interpre- 
tadores, compiladores e sistemas opera- 
cionais, aonde e necessario manipular 
recursos de vi'deo, memoria e rotinas 
somente acessfveis pelos codigos da mi- 
quina. Alem disso, Assembler e uma lin- 
guagem dependente do equipamento em 
que estiver operando, pois cada um pos- 
sui arquitetura propria, o que provoca 
diferengas nos codigos de maquina rela- 
tives a um mesmo comando, mapeamen- 
to de memoria (enderegos de areas para 
carga de programas, jumps relativos etc.) 
e enderegamento de E/S para cada com- 
putador. 

Desenvolvida no Dartmou- 
th College, EUA, no im'cio 
, l"|ju dos anos 60, o BASIC (Be- 
QliZJlL ginners All -Purpose Sym- 
bolic Instruction Code) visa servir como 
uma linguagem de facil aprendizado aos 
iniciantes em programacao, independen- 
te da idade ou formagao escolar. £ com- 
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posta de um repertorio de palavras re- 
servadas, funcoes matematicas e opera- 
dores logicos e aritmeticos que desempe- 
nham diversas atividades dentro de um 
programa, tais como: atribuir valores nu- 
mericos e alfanumericos a uma variavel; 
dimensionar uma matriz de uma ou mais 
dimensoes; executar um loop controla- 
do; ler valores (do teclado, disco ou fita) 
e imprimir ou gravar em vi'deo, papel, fi- 
ta ou disco, entre outras. 

A estrutura do BASIC, o tamanho re- 
duzido dos interpretadores e a semelhan- 
ga com a lingua inglesa fez com que fos- 
se adotado pelos fabricantes de micro- 
computadores, estudantes e programa- 
dores. Porem o grande publico ficou a 
margem deste processo, ate que surgis- 
sem, em meados dos anos 70, nos EUA, 
os primeiros microcomputadores com 
pregos dentro das possibilidades da 
maioria. 

As grandes vantagens da linguagem 
BASIC sao a simplicidade dos comandos 
e a interatividade, pois, a medida que o 
programa e executado (e importante no- 
tar que para escrever e armazenar na me- 
moria do computador um programa em 
BASIC, e necessario uma numeracao das 
linhas), a exatida"o dos comandos que 
sao inseridos na memoria e checada e o 
operador alertado em casos de erros de 
sintaxe, sendo tambem constantemente 
informado sobre o estado do sistema (se 
um programa foi normalmente compila- 
do, uma instrugao esta correta, etc.). 

BASIC esta disponi'vel em pratica- 
mente todos os microcomputadores sob 
forma residente (interpretadores) ou ex- 
terna (compiladores), nas mais diversas 
versOes e caracten'sticas, porem um pa- 
drao de BASIC e o da software-house 
americana Microsoft, disponi'vel tanto 
sob os sistemas operacionais CP/M ou 
DOS. 

Entretanto, apesar de possuir um 
grande conjunto de instrug5es e ser bas- 
tante popular, a linguagem BASIC e 
muitas vezes sub-utilizada, isto e, muitos 
dos recursos de manipulacao de vi'deo 
ou impressao de resultados, por exem- 
plo, nao sao explorados ao miximo, seja 
pelo desconhecimento ou mesmo falta 
de interesse dos usuarios. 



Foi criada por Dennis Ritchie, 
K"\" nos laboratories Bell em 1972, 
I*. como parte de um conjunto de 
■" ferramentas desenvolvidas no sis- 
tema operacional UNIX, para o enge- 
nheiro e o programador de software ex- 
periente. £ uma linguagem modular, de 
relativo baixo nivel, composta por fun- 
coes que possibilitam a especificagao 
de todos os detalhes logicos de um pro- 
grama, levando o programador a alcan- 
gar grande eficiencia, sem entrar nos de- 
talhes de hardware do computador. 



A principal caracten'stica de C e a 
flexibilidade, permitindo ao programa- 
dor escrever os seus programas atraves 
de funcoes modularmente agrupadas. 
Em C, o programa inicia com o nome 
da funca"o, seguida de um colchete, de- 
pois vem um conjunto de declaragoes 
encadeadas em qualquer nivel de com- 
plexidade sob forma de instrugOes, e 
encerrando outro colchete. Nesta lingua- 
gem e possfvel a um programa chamar 
rotinas em linguagem de maquina e fun- 
goes especi'ficas ou padronizadas das bi- 
bliotecas (que tambem podem ser defi- 
nidas pelo usuario). 

Na linguagem C, os programas sa~o 
compostos em um editor e a seguir com- 
pilados para o codigo objeto do compu- 
tador em fases sucessivas. Nesta lingua- 
gem, as linhas nao sao numeradas. Exis- 
tem ponteiros (vetores que manipulam 
filas e pilhas de dados); matrizes multi- 
dimensionais; variaveis globais e locais e 
declaragoes como SWITCH, BREAK, 
RETURN, IF, THEN, ELSE, CASE, 
WHILE LOOP, entre outras. Como a 
linguagem C na"o possui comandos espe- 
cificos de E/S, e sim fungOes, e possi'vel 
a adaptagao da configuraga"o de E/S para 
qualquer sistema operacional. 

Apesar de nao ser uma linguagem di- 
vulgada e de facil aprendizado, C popu- 
larizou-se entre os programadores e 
usuarios principalmente por ser confia- 
vel, regular e de facil utilizagSo. A sua 
construg5o modular permite a imple- 
mentagSo de programas de todos os m'- 
veis, desde os mais simples, para calcular 
as rafzes de uma equagao, ate comple- 
xos sistemas operacionais, geradores de 
programas e linguagens computacionais. 
Atualmente C esta disponi'vel em ver- 
soes para microcomputadores das linhas 
Apple e IBM-PC. 

Surgiu em 1960 pela ne- 
-^•^-..-j- cessidade do governo 
p-jp'jjLJ* americano, empresas, fa- 
L.LIDLIL. bricantes de computado- 
res e usuarios de criar uma linguagem 
padrao que solucionasse problemas co- 
merciais e administrativos, permitindo a 
transferencia de programas e tecnicas de 
programagao entre equipamentos de di- 
versos fabricantes, modelos e configura- 
goes. 

COBOL e um linguagem com sinta- 
xe e estrutura proprias, sendo similar k 
lingua inglesa. E composto de itens, re- 
gistros e arquivos logicos orientados 
para aplicagSes comerciais, permitin- 
do diversas facilidades uma vez que a 
manipulagao de dados e arquivos pode 
ser feita atraves de acesso direto ou se- 
qtiencial; e que a organizagao dos ar- 
quivos pode ser seqiiencial, seqiiencial- 
indexada ou relativa. 

Possui quatro divisoes com finali- m 
MICRO SISTEMAS, agosto/85 



APUQUE NUM NEGdOO ESIAVH 




ESmBIUZADORES HEIRONKOS GUARDIAN 



ENERGIA A TODA PROVA 



Os Estabilizadores Eletronicos 
Guardian sao o melhor negocio para o 
seu CPD. 

Porque sao os unicos do mercado 
que garantem continuamente (sem 
degraus) uma estabilidade de tensao 
de ± 1 % mesmo que a rede varie ate 
± 22%. Alem disso, incorporam 
transformador isolador e possuem um 
sistema de filtragem que elimina rufdos 
e transitorios inerentes a rede eletrica. 

Estabilizadores Eletronicos Guardian, 
garantia de energia limpa e estavel. 



Capacidades disponiveis com 
qualquer tensao de entrada ou saida: 

• Linha miniReg - 0.25; 0.4; 0.6; 0.8 e 
1 KVA. 

• Linha MN- 1.5; 3e5 KVA, 
monofasicos. 

• Linha MG - 7.5; 10; 15; 25; 35; 50; 75 
e 100 KVA, monofasicos ou 
trifasicos. 





GUARDIAN 

EQUIPAMENTOS ELETRONICOS LTDA. 

Rua Dr. Gamier, 579 - Rocha - CEP 20971 • Rio de Janeiro, RJ 

Tels.: Geral: PABX (021) 261-6458 / Vendas: PABX (021) 201-0195 

Telex (021) 34016 

Sao Paulo: Tel.: (011) 270-3175 



LINGUAGENS DE PROGRAMACAO: ENTRE O HOMEM E A MAQUINA 



dades bem definidas: Identification Di- 
vision - tern a fungao de identificar o 
programa fonte (nome, autor e data) e 
o programa objeto; Environment Divi- 
sion - especifica os equipamentos para 
a compilagao e execugao, indicando 
tambem os arquivos de dados e periferi- 
cos a serem utilizados; Az/» Division - 
descrevc o tipo dos dados e constantes 
de entrada, intermediaries e saida e a 
Procedure Division - tern a fungao de 
descrever agoes como manipulacao de 
dados e controles, que serao executados 
pelo programa. 

Com excecao da Identification Divi- 
sion (que nao possui secies), todos os 
programas COBOL sao hierarquicamen- 
te compostos por: divisoes, segOes, para- 
grafos e instrugOes. As segoes mais uti- 
lizadas, com as suas respectivas fungoes, 
sa"o as seguintes: Configuration Section 
- informa o tipo de computador usado 
e indica agoes especiais como pular pa- 
gina ou substituir a vi'rgula por ponto, 
atraves de mnemonicos; Input-Output 
Section - descreve o dispositivo de ar- 
mazenamento e o arquivo de dados as- 
sociados ao nome do programa, metodo, 
tipo de organanizacao do arquivo e a 
chave de acesso; File Section - especifi- 
ca a estrutura dos registros ou dados dos 
arquivos da secao anterior; Working Sto- 
rage Section - define todas as variaveis 
de trabalho do programa; Linkage Sec- 
tion - descreve os dados, recebidos ou 
transferidos entre arquivos, que sa"o co- 
muns a outros programas. Alem das di- 
visoes e sec5es temos tambem os para- 
grafos (com fungao de documentar, 
identificar um tipo de acao ou atuar 
como referenda para desviar uma instru- 
gao) e as instrugOes (verbos que coman- 
dam uma acao). 

Devido a sua grande utilizacao em 
aplicagoes comerciais, principalmente 
apos a popularizagab dos microcompu- 
tadores, tern havido uma preocupacao 
constante dos organismos de padroniza- 
gao dos EUA em fazer periodicas atua- 
lizagOes na linguagem COBOL, sob for- 
ma de versQes, visando acompanhar a 
evolugao das tecnicas de programagao e 
hardware. 

A linguagem FORTH foi 
criada pelo astronomo 
_i_.'l_*_'Vj norte-americano Charles 
""UK I M h. More, para controlar 
o seu telescopio no observatorio de Kitts 
Peak. Possui uma estrutura modular 
onde os programas sao montados a par- 
tir de sub-rotinas que sao interconecta- 
das por diversas chamadas (CALL), as 
quais, por sua vez, fazem parte de uma 
rotina maior que esta conectada a ou- 
tras, compondo programa principal. 

A caractenstica incomum desta lin- 
guagem e que ela so opera com nume- 
ros inteiros e calculos na notagao polo- 
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nesa invertida, onde, por exemplo, cinco 
multiplicado por quatro sera representado 
por: 5 4 * ., sen do que o (*) efetua a 
multiplicacao e o (.) imprime o resulta- 
do. Or.tra caractenstica e o sistema de 
numeragao usado inicialmente o hexa- 
decimal (base 16), podendo ser altcra- 
do para qualquer outra base com um 
simples comando. 

Em FORTH e possi'vel estender a lingua- 
gem criando novas palavras (fungoes). a 
partir das antigas, reduzindo o custo c o 
trabalho das sub-rotinas, que passam a 
fazer parte do vocabulario da linguagem, 
podendo ser referenciadas num progra- 
ma como comandos. Alem disso, a 
maioria das operagoes e realizada atra- 
ves de pilhas (segoes da memoria onde 
os numeros sao armazenados numa or- 
dem onde o ultimo a entrar e o primeiro 
a sair), que se comunicam atraves de ins- 
trugoes, permitindo ao programador 
controla-las diretamente, ao contra'rio 
da maioria das outras linguagens. 

As grandes vantagens do FORTH sao 
o reduzido tamanho dos programas 
(40% menores que em BASIC), peque- 
no espago de memoria ocupado, baixo 
custo do compilador e principalmente 
a sua velocidade (cerca de dez vezes 
mais rapida que do BASIC), tornando-a 
uma linguagem adequada para a imple- 
ment agao de jogos de vi'deo. Atualmen- 
te existem diversas versoes de FORTH 
para qualquer microcomputador, inclu- 
sive para aplicagoes comerciais. 

Foi uma dasprimei- 
ras linguagens de 

! Vr -i <■ 1 Shi P r °g rama ? a ° de al " 
r UK I PCniH to ni'vel. Surgiu em 

1957, sob forma de um compilador 

criado pela IBM, devido a necessidade 

de resolver problemas que pudessem ser 

formulados matematicamente, dai'o scu 

nome FORTRAN-Formula Translator 

(tradutor de formula). FORTRAN teve 

inicialmente seu uso restrito as univer- 

sidades, centros de pesquisa e algumas 

empresas, por ser necessario o uso de sis- 

temas de grande porte para o seu pro- 

cessamento. 

Diversas versSes foram desenvolvidas 
a partir do FORTRAN basico, como o 
FORTRANSIT, FORTRAN II e o FOR- 
TRAN IV, alem de outras, decorrentes 
dos aperfeigoamentos desenvolvidos pe- 
los fabricantes de cada maquina. 

E uma linguagem voltada para apli- 
cagoes cienti'ficas, mas admite, com al- 
gumas modificagoes, aplicag5es comer- 
ciais, financeiras e outras. Caracteriza-se 
por uma estrutura muito similar a ma- 
tematica, possuindo fungoes pre -defini- 
das (Seno (SIN),Co-seno(COS), Expo- 
nencial (EXP), Logaritmica (LOG), 
etc.); caracteres basicos (alfabeticos, 
numericos, especiais, operadores, literals 



e delimitadores); variaveis inteirase reais; 
operadores (+, -, : , /,"* ) e declaragoes 
de E/S (WRITE, READ, FORMAT). 

Observa-se nesta linguagem que toda 
variavel comeca por uma letra, que sen- 
do I, J, K, L, M ou N definira uma va- 
riavel inteira; caso contra'rio, definira 
uma varirivel real. No en tan to, e possi'- 
vel definir um tipo qualquer para as 
variaveis atraves das fungOes INTEGER, 
REAL. COMPLEX e LOGICAL, que 
transformam uma variavel para o tipo 
inteiro, real, complexo e logico, respec- 
tivamente. 

Atualmente, muitos microcomputa- 
dores dispoem de compiladores FOR- 
TRAN que apesar de ser uma linguagem 
antiga (se comparada com outras) foi 
adotada como padrao por diversas uni- 
versidades, sendo materia introdutoria a 
programagao de computadores. Devido 
a sua simplicidade, variedadc de fungoes 
e versatilidade, o FORTRAN facilita o 
aprendizado e pcrmitc a portabilidade 
dos programas, se for utilizado o con- 
junto de instrugoes padrao da ANSI. 



VP|P|ni Esta linguagem foi criada na 
^■^■s^T decada de 60. no Instituto dc 
!\vij!l Tecnologia de Massachusetts 
LlaP (MIT) por John MacCarthy, 
como uma ferramenta para o desenvolvi- 
mento da inteligencia artificial e simu- 
lagao do pensamento, permitindo tam- 
bem o uso em aplicagoes gerais. Foi 
utilizada na implementagao da lingua- 
gem LOGO, no editor de texto EMACS, 
da Honeywell, e nos sistemas de CAD> 
para projetos de circuitos integrados 
(chips) com tecnologia VLSI (intcgra- 
gao em alti'ssima escala). 

LISP e uma linguagem elegante para 
descrever complexos problemas nao- 
numericos e servir como ferramenta 
basica para a pesquisa e desenvolvi- 
mento da inteligencia artificial, alem 
de incorporar uma grande variedadc dc 
estruturas de dados (numericos e alfa- 
beticos) adaptando-se a diversas aplica- 
goes. 

Nao tern estruturas matematicas pre- 
definidas, e sim palavras que asseme- 
lham-se a uma lingua natural. Possui 
dois tipos de palavras: os atomos, qual- 
quer combinagao de letras e numeros 
iniciada por uma letra; e as listas, con- 
juntos de atomos e/ou listas colocados 
entre dois parenteses. 

E possi'vel criar listas que associam 
atomos a valores numericos ou strings. 
Como exemplo, podemos associar o 
atomo PI ao valor 3.14 e as letras do 
alfabeto aos nomes das capitais brasi- 
leiras, o que torna possi'vel comparar 
ou realizar qualquer operagao matema- 
tica com os valores associados, desde 
que sejam do mesmo tipo. LISP tam- 
bem possui fungoes para retirar pri- 
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meiro elemento de uma lista (CAR), 
colocar outro atomo com seu valor 
numa lista (SETQ) ou obter uma se- 
gunda lista (CDR). 

Devido i capacidade de estruturagao 
de dados, facilidade para criar fungoes, 
manipulagao de arrays (matrizes), re- 
cords (registros), pointers (vetores com 
enderegos programaveis) e muitos outros 
recursos, LISP foi adaptada aos micro- 
computadores sob forma de compUa- 
dores, interpretadores, sistemas graficos 
de alta velocidade e muitas outras 
aplicagoes. 

PfpTJ E uma familia de linguagens 
^j"Vv interpretativas de alto ni'vel, 
i" A|"wJl. que executa instrugOes ime- 
L UuU diatas ou seqiie"ncias de ins- 
trugOes escritas em procedimentos(espe- 
cies de sub-rotinas). LOGO, foi desen- 
volvida no MIT, inicialmente em Lisp, 
no final da decada de 60, pelo Prof. 
Seymour Papert para estimular o rela- 
cionamento da parte vital de cada pes- 
soa com o mundo (parte que raciocina 
e reage sobre o mundo de forma ativa, 
visando resolver problemas a partir de 
ideias e experiencias) atraves do compu- 
tador e de atividades criativas como jo- 
gos, brincadeiras, discussoes conjuntas 



sobre programas, etc. Tudo isto orien- 
tado por instrutores responsaveis para 
cada grupo de dois ou tres alunos. 

LOGO e constituida por palavras 
primitivas e comandos que podem ser 
abreviados, como: Forward (para a fren- 
te), Back (para tras), Right (direita), 
Left (esquerda). Essas palavras contro- 
lam o movimento de um cursor em toda 
a tela e permitem desenhar formas e 
tamanhos diversos. E possi'vel definir 
fungoes (como tragar uma figura ou fa- 
zer calculos ) e executa-las chamando 
apenas o nome escolhido, sem necessi- 
dade de definir formatos de impressao, 
tipos de constantes ou desvios incondi- 
cionais. 

Existe tambem um elemento chama- 
do "tartaruga" que pode assumir duas 
formas: um pequeno triangulo que apa- 
rece na tela do computador podendo 
ser comandado para mover-se ou girar 
em qualquer diregao, deixando opcio- 
nalmente o rastro na tela; ou entao um 
robo dotado de movimento e sensores 
de toque, que permitem perceber os 
objetos colocados ao seu redor, possuin- 
do ainda uma caneta que pode ser bai- 
xada sobre um papel para tragar figuras, 
luzes e buzina. Esta "tartaruga" ensina 



as criangas a programar computadores 
em LOGO e tern se mostrado promisso- 
ra na educagao de pessoas com paralisia 
cerebral ou distrofia muscular. 

No Brasil, a linguagem LOGO esta 
disponivel numa versa"o desenvolvida 
pelo MIT para os microcomputadores 
Apple II, necessitando de uma memo- 
ria minima de 64 Kb, um acionador de 
disco e um disquete com o interpretador 
LOGO. 






MUMPS e um sistema 
composto de linguagem 
de programagao, siste- 
ma operacional e um 
gerenciador de banco de dados, desen- 
volvido em 1966 no Laboratorio de 
Ciencia da Computagao do Hospital Ge- 
ral de Massachusetts, com a finalidade 
de gerenciar todos os dados ch'nicos des- 
te hospital. 

objetivo do grupo que desenvol- 
veu era criar um produto interativo, 
com uma linguagem simples. Para isso, 
ele tinha que oferecer um tempo rapido 
de resposta e facilidade de operagao 
para funcionar como suporte de um 
banco de dados dinSmico, sujeito a 
frequentes alteragoes e consultas on-line 
a arquivos hierarquicos contendo prin- H 
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Saldo bancario, roteiro e preco de viagens, condic5es do tempo, 

cotagoes e taxas do mercado, horario de voos, noticiario nacional e 

internacional, ate histdria em quadrinhos... 

Tudo isso, no seu microcomputador, sem sair de casa ou do 

escrit6rio. Basta conecta-lo a uma linha telefonica, 

atraves do MODEM MVT-1 275 da Embracom. 

Agindo como interface, MODEM EMBRACOM 

opera como modulador e demodulador, 

convertendo os sinais digitals recebidos 

em analogicos e vice-versa, na emissao. 

Assim, atraves do seu micro, 

voce disp5e, na hora que 

quiser, dos seus dados 




bancanos, tern acesso ao vfdeo-texto, Cirandao/Embratel 
ou qualquer banco de dados que opere 
na velocidade 1 .200/75 bauds. 
Com o MODEM MVT-1 275 EMBRACOM, voce 
otimiza seu micro e entra, deiinitivarnente, na era da 

informatica. 
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cipalmente dados nao numericos. 

E um sistema operacional multiusua- 
rio e multitarefa que incorpora um con- 
junto de utilitarios de apoio &s ativida- 
des de operagao e programacao, operan- 
do na modalidade de time -sharing; 
uma linguagem de programaca"o de alto 
ni'vel, de facil aprendizado e utilizacao; 
e por fun um software basico (gerencia- 
dor de banco de dados), incorporado 
de forma integral ao sistema e a lingua- 
gem, com facilidade na manipulacao 
E/S e no armazenamento de dados. 

A linguagem MUMPS tern como 
caractenstica a facilidade de se escrever 
programas de aplicacao que funcionam 
de maneira conversational, facilitando a 
interacao homem-maquina. Ela e' com- 
posta de 25 comandos, 15 funcQes e 
outros tantos operadores, variaveis e 
constantes; alem de estimular a progra- 
macao modular, onde cada programa 
executa uma funcao determinada. 

Ja o gerenciador de banco de dados 
tern como principal caractenstica uma 
estrutura hierarquica de dados, conhe- 
cida como arvore balanceada. Este con- 
ceito define a organizacao dos dados 
no arquivo para posterior consulta, 
facilitando o acesso aos mesmos e eco- 
nomizando espa90 de memoria. Com 
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essa facilidade, o programador so tern 
que estabelecer a estrutura de dados; a 
alocacao fi'sica fica sob a responsabi- 
lidade do sistema. 

O sistema MUMPS foi descnvolvido 
inicialmente em minicomputadores, ten- 
do sido adaptado posteriormente aos 
micros. No Brasil existem diversas 
versoes de MUMPS, criadas para micros 
por diversas empresas, seguindo o pa- 
drSo ANSI, porcm com certas caracte- 
n'sticas que sao peculiares a cada maqui- 
na. 

Dentre essas empresas podemos citar 
a Medidata, que adaptou o MUMPS 
para os seus equipamentos. Esta lingua- 
gem foi incorporada ao micro M301 e 
ao novo lancamento da empresa, o mi- 
cro de 16 bits Ml 001. 

Alem disso, existem a Biodata, com 
o BIOMUMPS, que roda nos micros da 
COBRA (incluindo o novo 480) e 
Edisa (noED-680);aPensamentoProces- 
samento de Dados com uma versSo na- 
cional do MUMPS que roda na linha 
Apple, Brascom, Dismac, Itautec, Poly- 
max e Prologica e o microMUMPS, 
uma versao comercializada pelo MUG 
(Grupo de Usuarios de MUMPS) que 
roda sob CP/M, aproveitando as rotinas 
de E/S, tanto com o 8080 ou Z80; 
com 56 Kb de memoria RAM e pelo 
menos uma unidade de disco de 5 1/4" 
ou 8". 



A linguagem Pascal foi 
desenvolvida em 1971, 
Aju~^f-Hh' pelo Prof. Nicklaus 
■ MaLnL- Wirth, na Universida- 
de de Zurique com a finalidade de criar 
conceitos claros e fundamentals que per- 
mitissem o ensino da sistematica de pro- 
gramacao em computadores, atraves da 
programacao estruturada. Esta tecnica 
consiste em construir blocos logicos de 
procedimentos (procedures), compostos 
de tres estruturas de controle (seqiien- 
cia, teste e repeticao) que ao serem agru- 
padas tornam mais facil e rapida a cons- 
trucao do programa. 

A forma estruturada dos dados, con- 
junto de comandos estruturados e defi- 
nicao dos tipos escalares (criados pelo 
usuario para definir uma funcao, exem- 
plo: Type Cores (azul, violeta, cinza); 
ou padronizados pelo sistema (Inte- 
ger, Real, Character ou Boolean), per- 
mitem uma melhor compreensao e adap- 
tacao dos programas a diversas finalida- 
des, gastando menos tempo dos progra- 
madores e aumentando a sua produtivi- 
dade. 

A estrutura possui comandos com- 
postos (agrupamentos de comandos sim- 
ples para representar uma ideia comple- 
xa, comecando por BEGIN e acabando 
por END); declaracao de variaveis (in- 
formacao sobre o tipo e significado de 
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todas as variaveis do programa) e varia- 
veis Cspeciais (como SET-conjunto ao 
qual podem ser aplicadas operacSes de 
adicao, intersecao, etc.; POINTER — en- 
derecos associados a estruturas alocadas 
como pilhas e filas de dados; RECORD 
— estrutura que envolve elementos de 
tipos diferentes). 

O Pascal possui ainda comandos de 
decisao e repeticao como IF, THEN, 
ELSE, WHILE , UNTIL, CASE, REPEAT, 

FOR, TO e DO, que permitem construir 
sub-rotinas sob forma de procedures; 
simbolos basicos (letras e di'gitos); si'm- 
bolos especiais (-, +, /, *, :=, etc.); trata- 
mento de cadeias de caracteres (strings); 
vetores de uma ou varias dimensoes; ro- 
tinas matematicas (TAN, ABS, SQR, 
MOD) e rotinas para a simplificacao do 
uso da tela, como READ XY (fornece a 
posicao atual do cursor) e GOTOXY 
(posiciona o cursor na tela). 

Devido a caracten'sticas como recur- 
sividade .(chamada de uma sub-rotina 
por outra), facilidade de estruturacao de 
algoritmos ligados a estruturas de dados 
complexas e liberdade de formatos de 
E/S, alem de incorporacao de tecnicas 
da programacao estruturada, o PASCAL 
tern substitui'do o FORTRAN no ensino 
da computacao nas universidades, nas 
aplicacoes cientificas e comerciais. Exis- 
tem versoes especi'ficas para diversos mi- 
crocomputadores (TEXAS, ATARI, 
IBM-PC) e para utilizacao com qualquer 
equipamento que opere sob os sistemas 
operacionais CP/M (monousuario) ou 
MP/M (multiusuario). 
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WE SPEAK 
PORTUGUESE. 



Quern compra um 1-7000 PCxt nao est& 
comprando apenas o melhor e mais comple- 
te* PC do mercado, Est& levando tambem o 
suporte e a assistencia tecnica que vein 
junto com todos os equipamentos da Itautec. 

1-7000 PCxt e totalmente compativel com 
o PCxt da IBM*. Porque possui o sistema 
SIM/M e SIM/DOS, que sao compativeis com 
os dois principals sistemas do mercado: 
o CP/M eo MS-DOS. 

A Jtautec 6 altamente compativel com as 
necessidades da sua empresa. Porque e 
uma empresa totalmente nacional, que esta 
preocupada em desenvolver uma tecnobgia 
adaptada as condigoes brasileiras. 

1-7000 PCxt e mais r^pido. Sua veloci- 
dade de processamento de 8 megahertz 6 
maior que a de seus concorrentes, inclusive 
o PCxt da IBM*. 



A Itautec tambem 6 rapida. Nosso centro 
de atendimento ao usuario est£ aparelhado 
para atender duvidas de nossos ctientes 
imediatamente, via telex ou telefone, em 
qualquer ponto do Brasil. 

Alem de tudo isso, o 1-7000 PCxt fala por- 
tugues fluentemente, Seu teclado tipo "slim' 1 
tern todos os caracteres da lingua portugue- 
sa e sua impressora tern opgao de acen- 
tuagao. 

That means that our 1-7000 PCxt unders- 
tands you like no other PC does. He speaks 
your language. If you want a great PC and a 
fantastic service, call Itautec. We speak your 




SAO PAULO: RuaBelaCinJra. 1 149- Tel 280-2966 CEP0H15. 

BRASILIA STComefCialSul - Quadra 03- Bloeq An B 30- 1"ancla* ■ AsaSul- Io< (061) 224-6565 - CEP 70000 

CAMPINAS RuaJosft Paulino. 882^900 • 7 D ancla« ■ Tol (0192) 32-2033 - CEP1310O 

CURITIBA Rub lH«pava. S25 Tel (04 1) 262-01 B7- CEP 80000 

PORTO ALEGRE Rua Dr Th.moieo. 591 Momhos <»e Venao • Tele. (0512) 22 1733.'22-196? CEP 90000 

RIODE JAWFIRO Rua da Gttrla, 344 - 3 *andar - Teia. (021) 2?4-56l0'224.5??4 CEP 20241 

SALVADOR. Av Magalhaes Nelo, 999 7 'anrjar Er>l-eio WolropolHanoAlla. Piluba - Tel 1 0711 231 -3246 - CEP 40000 

RECIFE. Av Afcdiasde CfiWklho. 1 1 J 1 - Ttfs, (081J 22a-06a9i l 22«-42?0- CFP 50000 

BELO HORlZONTE Av Augusto rJe Lima, 407 - 17 "anctar Tols. (031)212-1342224 9664 



Itautec 

We speak Portuguese. 



Desenhe figuras geometricas apenas usando o BASIC 
Applesoft e comece pelo que \vk de mais simples: o circulo 



Explorando o Circulo 



Vitson J. Leffa. 



Saber usar as pmprtedadcs do circulo c tuna neccssida- 
de para qualquer pessoa inter essada na program a ca"o 
de gralicos. O objetivo deste artigo £ ofcrcccr algumas 
sugestoes sobre como cxplorar cssas proprietaries, 
liSo apenas para desenhar dife rentes figuras geom£tricas, mas 
tambcm para controls r o desenho em terrnos de velocidade; 
posicflfo em relaeflo a outro ponto; escolha da direcffo do cur- 
sor; finhas cheias; linhas pontilhadas, etc, 

Os exemplos ofereeidos aqut sao em Applesoft BASIC, mas 
podem ser facilmente adaptadosa qualquer BASIC que possua 
os comandos PLOT, PLOT TO e DRAW TO (ou similares). 

Hi varias rrmneiras de se desenhar um circulo, mas a que 
melhor se adapts ao nosso prop6sito i o mgtodo que usa a for* 
mula dos senos e co-senos, O me'todo tern algumas desvanta- 
gens, principalmente em terrnos de velocidade, mas e" o que 
permiie maior controle do desenho - de fato tanto controls, 
que ate o problems da velocidade podc ser corrigido. 

Digitc e rode o programa da listagem 1 . Se voce jd conhece 
o mitodo dos senos e co-senos devcra" ficar surpreso com a ve- 
locidade do desenho: aproximadamente sete vezes mais ripida 
que o normal. A qualidade do circulo, c" verda.de, deixa a dese- 
jar, mas isto tambcm pode ser corrigido (veja adiante em Dese- 
nhando Figuras Ccome'tricas). 

Mudando o pout a de partida 

A varidvet PARTIDA na linha 10 controls o ponto de parti- 
da do cfrculo, Mude o seu valor para qualquer outro en Ire zero 
e dois Pi (PARTIDA - 6.28), e rode o programa para ver o que 
acontece* Experimcntando, voce deseobrira como estes valores 
se correlacionam com diferentes po&icftes da tela. 

Desenhando Elipses 

HEIXO (eixo horizontal) c VEIXO (eixo vertical) s3o as va- 
riaveis que permitem o desenho de ctrculos e elipses. Experi- 
mente com HEIXO * 20, VEIXO = 37 e rode o programs, De- 
pots experimente com HEIXO = 50 e VEIXO = 20, lente com- 

binar rnudancas nos eixos com mudan^as no ponto de partida 
e divirta-se por um momento, 

Mudando a posicao 

As duas variaveis na linha 20 sSo de func/3o 6bvia; mudan- 
do-se XCENTRO c YCENTRO, pode-se colocar o circulo em 
qualquer posicSo da tela - Us vezes, £ claro, sera" ncccssdrio re- 
duzir os eixos (HEIXO e VEIXO) paramanter o cfrculo dentro 
dos limitcs da tela, 
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Desenhando figuras geometricas 

A variavel LA DOS na linha 30 nSo apenas controla a '*»- 
dondeza" do cfrculo (quanto mais alto o valor da variavel* 
mais rcdondo o circulo), como tambcm pcrmite o desenho de 
diferentes figuras geometricas, LADOS- 3 produzumtriinguIo t 
LA DOS = 4 um quadrado, e assim por diantc. Note que combi- 
nando LADOS com PARTIDA, pode-se Fazer gjrar estas figu- 
ras (ate certo ponto simulando a deelaracao ROT =do Apple- 
soft BASIC). 

Controlando a dirccao do desenho 

O cfrculo, ou qualquer outra figura geomdtriea, pode ser 
construfdo desenhando na direcSo dos ponteiros ou vice-versa. 
Para isso basta mudar o sinal na linha 70. 

7% PARTIDA = PARTIDA - CURVA 

Desenhando segmentos 

Acrescentando-se a Unha 95, ondc SEGMENTO 6 um valor 
qualquer entre I e LADOS, pode-se obter um desenho de qual- 
r segment© do cfrculo, 

95 IF CIRCULO=SEGMEMr0 THEN STOP 

Pode-se tambcm experimentar com o centro do cfrculo 
(XCENTRO, YCENTRO) fora dos limites da tela. Para ver 
como funciona, apaguc a Unha 95 e use os seguintes valores; 
PARTIDA = 1 ; HEIXO - 1 80; VEIXO = 200; YCENTRO =-20; 
LADOS = 200. Rode o programa e veja o que acontece, 

Linhas Pontilhadas 

Reconstitua os valores do programa da listagem l,e mude a 
linha 100 para: 

100 HPLOT X,Y= GOTO 120 

Experimente tambcm com outros valores na variavel LADOS 
(25, 12, 5 etc.), e veja o que acontece. 

Desenhando hurras 

Para desenhar barras que sc iradiam do centro do cfrculo 

para a periferia, mude a linha 100 para: 

MICRO SISTEMAS, aflosxo/B5 



Listagem 1 



10 PARTIDA 

30 
20 XCENTRO 
30 LADOS ■■■■■■■ 
40 CURVA * 
50 HGR2 a 
A0 FOR CIRC 
70 PARTIDA * 
80 X «• HEIXO * 

ENTR0 
90 r - VEIXO » 

ENTR0 
)00 IF CIRCULO 

Y: GOTO 120 
.1.10 HPLOT TO X,Y 
120 NEXT CIRCULO 



0s HEIXO « 40 : VEIXO * 



130= YCENTRO 



90 



50 

6 -28 / LADOS 

HC0L0R=» 3 

L0 - 1 TO LADOS + 1 

PARTIDA + CURVA 

* SIN (PARTIDA) + XC 



:03 (PARTIDA) 



YC 



= .1 THEN 



MOT X, 











Listagem 2 






5 DIM XF<300),YF<300) 




9tH XF" (CIRCULO) »8 X-YF : '( CIRCULO) ■ Y 


1.30 NCR 2 s HC0L0R" 3 


140 FOR CIRCULO ■ .1. TO LADOS •♦■ i 


tm IF CIRCULO ■ i THEN HPLOT XF 


( C I R C U I... > , YF < C I R C U L ) 1 G T 1 


70 


i. 6 H P 1... T T X F < C I R C U 1... ) „ YF < C I R C 


UL0) 


170 NEXT CIRCULO 



100 HPLOT XrYl HPLOT TO XCENTRO , 
YCENTRO a GOTO 120 

Mais uma vez tente com diferentes valores na variavel LADOS 
e veja que belos efeitos voce ira" conseguir. 

Cfrculos rdpidos 

Se voce quiser incorporar um cfrculo ou outra figura num 
programa maior, e interessante colocar os valores de X e Y 
(calculados nas linhas 80 e 90) em dois "arrays". Ao fazer isto, 
voce n5o so vai descobrir que pode salvar estes valores num ar- 
quivo texto mas verd tambem que o desenho se completar^ 
muito mais rapidamente. 

Para perceber a diferen?a na velocidade do desenho, acres- 
cente ao programa da listagem 1 as linhas da listagem 2. 

O cfrculo sera" desenhado duas vezes, a primeira vez lendo 
os valores de X e Y, e, a segunda vez, lendo os valores direta- 
mente dos arranjos XF e YF. Este 6 o modo mais r£pido que 
existe de se desenhar o cfrculo usando a linguagem BASIC. 

Para concluir, observe que combinando as variaveis e acres- 
centando ou mudando algumas linhas e possfvel obter muitos 
efeitos diferentes. Apenas para aguc,ar a sua curiosidade: tente 
aninhar o "loop" do cfrculo com outros "loops", fazendo com 
que certas variaveis (XCENTRO, HEIXO, LADOS, etc.) mu- 
dem seus valores apos cada "loop". Com um pouco de pr^tica 
voce podera" criar e multiplicar belas seqiiencias grdficas. 

■ 

m 



Professor da Universidade Federal do Rio Grande do Sul, com for- 
macSo nas ireas de educacSo e lingufstica aplicada, Vilson J. Leffa 6 
usuirio das linhas TRS-80, Commodore, Atari e Apple. Seu principal in- 
teresse esta" no uso da informdtica para a educacSo. 
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SINTETIZnDOR 
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INTERFECE 
SIMTETIZADORA 

devoz RVLM 

Digitou... Falou... 



* 



Reproduz a voz hu- 
mana perfeitamente. 
Permite que se varie a to- 
nalidade, volume e velocida- 
de da voz. Basta digltar a pale- 
vra o ouvir com a pronuncia correta em ingles ou por- 
gues. Facflima operacSo. J6 vem com alto-falante na in- 

face. 




AplicacSes: 

— Aprendizado do ingles; 

— Torna seus programas apli- 
cativos educativos o Jogos 
falados. 

— Acompanha disco c/soft- 
ware de demonstracfio e 
manual detalhado. 

Garantia de 90 dies. 
Opcional: 

Minl-diciondrio c/3.000 pala- 
vras no soft, para cosultas r&- 
pidas em portugues/inglds ou 
, vice-versa. 



IDosejo receber: 
I □ INTERFACE PALM, DISCO 
I E MANUAL POR Cr$ 420.000 
| □ TAMBEM MINI-DICIONARIO 
I POR Cr$ 38.000 
D MAIS INFORMACOES. 

I NOME: 
I END.: 

CEP: CID.: EST.: 

I ENVIE CHEQUE NOMINAL A 
I PALM SOFT LTDA 

R. AUGUSTO STELLFEDL, 1314 
I CEP 80000 • CURITIBA- PR 
I FONE: (041)224-6948 

VALOR Cr$ 



I vhlum ur» 



I Seu micro nao 
^pode parar 
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CHAME MS: ASSISTENCIA VITAL EM MICROS 



IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 

A MS trabalha desde 1971 em assist&ncia especializada em 
microcomputacfio que se estende desde check-ups preventi- 
ves ate a substituigao de pegas, de unidades perifericas ou do 
pr6prio micro durante o tempo em que ele estiver em prepare 

Tenha ao seu lado a melhor assistencia tecnica em micro- 
computadores do pais. 

FAQA COMO AS GRANDES EMPRESAS: 

Varig, Petrobras, Pio de Aciicar, Acos Villares, Philco, etc. 

Contrato de manutencSo com a MS e garantia de bom funcio- 
namento de seu equipamento. 

Solicite nosso representante ou fa$a-nos uma visita. 



MS 



Assistencia Tecnica a Microcomputadores. 
Rua Dr. Astolfo Araiijo, 521 tone: 549-9022 
Cep.: 04012- Pq. Ibirapuera-SSo Paulo. 



TK 90X, urn 
Spectrum no Brasil 



Numa epoca do ano em que 
todos os fabricantes fazem sigilo 
dos equipamentos que pretendem 
lancar na Feira de Inform^tica, a 
paulista Microdigital lancou seu 
torpedo em pleno final de junho. 
Apresentou a imprensa e aos re- 
vendedores, em regime de entre- 
ga imediata, o TK 90X Color 
Computer. 

Conforme anunciamos em nos- 
sa edicao 45, o novo produto e" 
compati'vel com o ZX Spectrum, 
da empresa inglesa Sinclair, com a 
qual, alias, a mesma Microdigital 
travou, faz pouco tempo, uma 
bem-sucedida batalha judicial (ve- 
ja em MS 46, BITS). Os tiros nao 
pararam, 6 o que parece. Questio- 
nado se nao seria brincar com fo- 
go lancar outro produto da linha 
Sinclair, George Kovari, Presi- 
dente da empresa brasileira, amea- 
ca bem-humorado: "Estamos lan- 
cando um micro internacional, 
fruto de pesquisa e ainda melho- 
rado. Vamos sedimentar o produ- 
to no mercado mundial, e depois 
soltar a bomba em Londres, a 
um preco competitivo. Quanto 
a Sinclair, nem quero saber...". 

Qualificacoes para se tornar 
um sucesso, sem diivida o TK 90X 
possui, e experiencia tambem. Co- 
locado no mercado argentino um 
mes antes de ser lancado no Bra- 
sil, o TK 90X, por seus recursos 
de cor, som, alta resolucao e vas- 
ta biblioteca de programas, consti- 
tui-se uma peca chave na ja" esbo- 



cada estratggia da Microdigital de 
ganhar o mercado de exportacao. 
Para tal, os manuais de operacao 
do equipamento ja sao disponi'veis 
em portugues e espanhol, e a dire- 
toria garante que estao sendo tra- 
duzidos para o ingles. 

As principais diferencas entre 
o Spectrum original e o TK 90X, 
segundo a Microdigital, sao o co- 
mando TRACE, para detectar er- 
ros; sai'da de som diretamente 
pela TV; rotina para definicao de 
caracteres pelo usuario; interface 
para joystick e possibilidade de 
acentuacao em portugues e espa- 
nhol. Com relacao a pequena im- 
pressora utilizada com o Spec- 
trum, a Microdigital preferiu nao 
se comprometer — esta impres- 
sorinha ja deu muita dor de cabe- 
ca a empresa, quando foi prome- 
tida para a linha dos TKs 82/85 
— , limitando-se a afirmar que "ha" 
possibilidade dela vir a ser fabri- 
cada". 

Uma especial enfase tern sido 
dada, pelo Marketing, as aplica- 
coes da area educacional, explo- 
rando a disponibilidade da lingua- 
gem LOGO nesta m^quina. O pre- 
co divulgado por ocasiab do lan- 
camento era de Cr$ 1,5 milhao 
para a versa"o 16 Kb e CrS 2 mi- 
Ihoes para 48 Kb. Os boatos de 
que o TK-85 teria a sua producao 
descontinuada nao tiveram eco, 
embora a propria direcao argu- 
mente que "nao se pode prever 
a vida de um produto". 




TK 90X Color Computer 

processador. Z 80A; 3,58 MHz 
mem6ria: 16 Kb ROM, com 
inter pretador BASIC 

16 ou 48 Kb RAM 
mem6ria externa: gravador 
cassete; velocidade 1200 bauds 
teclado: tipo Qwerty; com au- 
to-repeat e beep 

40 tec las contendo 



funcdes e comandos do BASIC 
maiusculas e minus- 
culas; acentuacSo 
vfdeo: modo texto de 24 x 32 
modo grifico de 256 x 
192 

cores: preto, azul, vermelho, 
ma's, verde, ciano, amarelo e 
branco 
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TRES MODENS EM UM 



Tradutor no TRS-80 



A software-house SCL, de Be- 
lo Horizonte, dispoe de uma li- 
nha de programas para a area m6- 
dica e hospitalar. Sao eles Estati's- 
tica Hospitalar, Sistema Integra- 
do de Custos e Controle de Ca- 
dastros. 

AI6m destes, a SCL tern um 
Controle de FichaYio para Carto- 
rios de Registros de Imbveis, Fo- 
Iha de Pagamento (com emissa"o 
de RAIS e Imposto de Renda), 
Controle de Estoque e Controle 
Fiscal. Todos os programas sSo 
escritos para a linha TRS-80 e 



em linguagem de maquina, exce- 
to o Controle Fiscal, escrito em 
BASIC-80 para rodar sob CP/M. 
Disponi'vel para os modelos 
TRS-80 I e III, ha o Dicionario 
Tradutor que permite ao usuario 
criar um arquivo de at6 4.300 pa- 
lavras e suas respectivas traducoes. 
O software comporta expressoes 
idiom^ticas e possui um sistema 
proprio para atualizar os arquivos 
do Backup. A SCL fica na Av. Au- 
gusto de Lima, 1646/1005 - Belo 
Horizonte (MG). Telefone: (031) 
335-5120. 



Contra apirataria 



A Brasoft, representante da Micropro no Brasil, esta fazendo 
a traducao de telas e manual do processador de textos Wordstar 
2000. A versa"o em portugues devera ser lancada na prbxima Fei- 
ra de Informatica, em setembro, e os usuaVios que ]& possuem o 
2000 poderao trocar pela nova versao, cujo preco devera ser o 
mesmo que o atual, 135 ORTN. 

A Brasoft esta lancando tamb6m, juntamente com a Datalb- 
gica (representante da AshtonTate) e a Sacco Computer Store 
(distribuidora da Lotus em SP), uma campanha contra a pirataria 
de software. Segundo Aldo Forlin, gerente comercial, o objetivo 
dessa campanha e conscientizar o usuSrio para os riscos que ele 
corre ao comprar uma copia pirata, tais como a falta de suporte e 
de assistencia tecnica. 



Novidades 
da BBS 



A Biblioteca Brasileira de Soft- 
ware esta lancando, em conjunto 
com a Hemus Editora Ltda., car- 
toes de referenda para micros das 
linhas Sinclair, TRS-80 e Apple. 
Estes cartoes trazem, entre outras 
coisas, os mapeamentos de memb- 
ria; instrupSes internas; cbdigo de 
caracteres e cbdigos ASC, e po- 
dem ser encontrados nas livrarias 
e lojas de informatica. AI6m dis- 
to, a BBS tambem esta colocan- 
do no mercado um software para 
ligacao dos micros da linha Apple 
ao projeto Ciranda"o. O programa 
pode ser encontrado na prbpria 
Biblioteca, que fica na Av. Briga- 
deiro Faria Lima, 1.390/Cj. 82. 



Impressoras 
da Elgin 



A Elgin esta lancando a impres- 
sora MT 250L, voltada para o 
mercado de OEM, com velocida- 
de de 250 cps para processamen- 
to de dados e 50 cps para textos. 
A nova impressora possui alta de- 
finicao grafica, qualidade de carta 
e apresenta comandos para o ajus- 
te das margens, espacamento pro- 
porcional e movimentacao hori- 
zontal para modificar o espaco en- 
tre os caracteres. 

Uma outra novidade e a MT 
440D para codigo de barras, que 
atrav^s de uma seqiiencia de bar- 
ras imprime 13 dCgitos, caracteri- 
zando o produto, seu fabricante e » 
pafs de origem. ^ 




MULTI-M 



• ft 



EM DIGITUS 
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O MULTI-MODEM foi projetado pela DIGITUS 
para atender aos usuarios de microcomputado- 
res que utilizam qualquer tipo de comunicagao 
com transmissao e recepgao de dados assin- 
cronos seriais. 

A principal caracteristica do MULTI MODEM e 
operar com tres velocidades em um unico mo- 
dem, ou seja sao tres modens em um. 

Usando qualquer microcomputador, desde que 
possua uma RS-232, voce tera acesso a todos 
os sistemas de informagoes que utilizam as ve- 
locidades de 300 bauds Full-duplex, 1200 bauds 
Half-duplex e 1200/75 bauds Full-duplex. 

O MULTI-MODEM, fabricado pela DIGITUS, tern 
alem das varias vantagens que o tornam um 
modem versatil, pratico e de facil utilizagao, a 
garantia da tecnologia DIGITUS. 

Matriz: Rua Gavea, 150 • Jardim America • Fone: (031) 332.8300 - Telex: 3352 • 30000 - Belo Horizonte • MG 
Filiais: Rua Barata Ribeiro, 391 • SI. 404 - Copacabana • Fone: (021) 257.2960 - 22040 - Rio de Janeiro - RJ 
Rua Faxina, 47 - Centro - Fone: (011) 572.0137 - 04008 • Sao Paulo • SP 





Novo 
Monitor 



A TDA - Industrie 
de Produtos Eletronicos 
Ltda. lancou no merca- 
do o ME -30, monitor 
de f6sforo verde desti- 
nado as linhas Apple e 
IBM/PC. perife>ico 
apresenta cinesc6pio de 
12" e resolucab de ima- 



Lan^amentos da Cetus 



O ME-30, para Apple e IBM-PC 



gem de 720 por 240 pontos. Maiores informacSes podem ser obtidas na 
TDA, que fica na Av. Prof. Vicente Rao, 2285 - tel.: (01 1) 533-9677, 
Sao Paulo (SP). 



S.O.S. Computadores 



A S.O.S Computadores, que ministra cursos de BASIC, Cobol 
e Assembler, entre outros, esta inaugurando este mes duas filiais 
sob o esquema de franquia, uma em Curitiba e outra em Itatiba, 
no interior de Sao Paulo. Com as duas novas escolas, a S.O.S pas- 
sa a atender em onze pontos diferentes. Segundo Luis Carlos Iz- 
zo, diretor da S.O.S, a ideia 6 montar uma rede nacional, e para 
isso ja esta*o sendo mantidos contatos no Rio de Janeiro e em 
Fortaleza. 



Sistemas 



Jotec 



A Jotec Consultoria e Sistemas 
estS colocando no mercado seus 
sistemas comerciais para equipa- 
mentos compatfveis com IBM-PC. 
Sao os seguintes os programas que 
a empresa oferece: contabilidade 
(70 ORTN); folha de pagamento e 
ficha financeira (85 ORTN); con- 
trole de estoque (45 ORTN); fa- 
turamento + estoque + controle 
de recebimentos (180 ORTN); 
controle de recebimentos (56 
ORTN); contas a pagar (56 
ORTN); contas a pagar e receber 
(98 ORTN); controle bancario 
(10 ORTN) e mala direta (30 
ORTN). Todos esses sistemas po- 
dem ser integrados. A empresa fi- 
ca na rua Otavio Tarqui'nio de 
Souza, 609 - Sao Paulo - Tel.: 
(011) 240-1682. 



Informatica 
na constru^ao 

Sera realizado, nos dias 23 e 
24 de agosto, durante o I Congres- 
so Brasileiro da Industria da Cons- 
trucab, no Rio Palace, um Semi- 
naYio de Informatica. No evento, 
serao demonstradas diversas apli- 
cacSes da informatica a engenha- 
ria. Maiores informac8es pelo tele- 
fone(021) 224-5422. 



Videogame 

por 

telefone 

A Embracom Eletronica lan- 
cou o Telegame, um videogame 
clube. via telefone ao qual qual- 
quer pessoa pode se associar, des- 
de que possua um videogame Ata- 
ri ou compati'vel. Mediante a ins- 
cricata (2 ORTN) e o pagamento 
da mensalidade, no mesmo valor, 
o associado recebe um receptor 
de dados, que deve ser conecta- 
do a linha telefonica, e um cartu- 
cho supercharger, que substitui os 
cartuchos convencionais. A partir 
daf, discando para o numero do 
Telegame, o associado passa a dis- 
por de 1 50 diferentes jogos e apli- 
cativos. O telefone da Embracom 
a (011) 521-6044. 



Software 

para 

o MC 1000 



A MICROIDEIA esta desen- 
volvendo software especffico para 
o MC 1000, equipamento da CCE. 
A empresa ja tern prontos tres pro- 
gramas: Controle BancaVio, Con- 
trole Dom6stico e Fluxo de Cai- 
xa. As fitas podem ser encontra- 
das na Av. Passos, 101/11? andar 
(RJ) ou em lojas. 



Quern promete muitas novida- 
des para este segundo semestre de 
85 6 a empresa Cetus, fabricante 
de redes locais que tern apresenta- 
do um crescimento espantoso nos 
ultimos anos. Segundo Max de 
Oliveira, diretor da area comer- 
cial, o faturamento previsto at6 o 
final de 85 6 de 20 bilhSes de cru- 
zeiros, e a razab de tal sucesso de- 
ve-se a dois fatores: "A grande 
vantagem 6 que nossa placa 6 uma 
criacab da Cetus, nab foi copiada. 
AI6m disto, somos neutros; aten- 
demos a qualquer fabricante e nab 
encaramos ninguam como concor- 
rente". 

De fato, muitos fabricantes de 
equipamentos ja estab em nego- 
ciacab com a Cetus para revender, 
em OEM, sua rede. A empresa 
possui cerca de 60 redes de equi- 
pamentos de 8 bits instaladas, e 
na 4rea de 16 bits ja existem di- 
versas redes em teste em corpora- 
goes como a TV Globo, Telesp e 
Embratel. A topologia das redes 
Cetus a BUS (barra), e seus prin- 
cipals elementos sab os nodos CS 
1000, interface para ligacab de 



equipamentos; CS 1100, servidor 
de impressab com recursos de 
spooling e CS 1200, servidor de 
arquivos para gerenciamento de 
ate quatro unidades Winchester. 

Os langamentos previstos para 
setembro, que serab apresentados 
na Feira da SUCESU, sab o CS 
1000PC, uma placa para ser aco- 
plada aos compati'veis com o IBM- 
PC e uma rede de baixo custo 
para Apple, tamb6m para ser en- 
caixada nos slots do equipamento 
e que tera um custo cerca de 50% 
mais baixo. Outro lancamento e 
o gateway com modem. Gateway 
6 uma unidade, dedicada ou nao, 
que permite as estacoes se comu- 
nicarem com outras redes ou ser- 
vicos, como o RENPAC, externos 
ao ambito geografico da rede. 
Para dezembro, a diretoria anun- 
cia o lancamento do gateway para 
a linha IBM. 

A empresa, que hoje tern 38 
funcionarios, 50% dos quais volta- 
dos para desenvolvimento, \& se 
prepara para o futuro, criando 
equipes de trabalho para pesqui- 
sas na area de 32 bits. 



Para os que desenham 

O arquiteto Bernardo Rubstein, autor do pacote CAD Pro-Arquite- 
tura, estara promovendo, durante o mes de agosto, um curso que tern 
por objetivo introduzir as novas ferramentas tecnolbgicas da Informati- 
ca aos profissionais que lidam com o desenho. 

Durante oito aulas, os alunos terao nocoes de BASIC, operacab de 
editores de texto e planilhas eletronicas e CAD. O curso 6 bastante pr£- 
tico e os profissionais terao acesso a um sistema grafico completo, com 
plotter, mesa digitalizadora e UCP compati'vel com o IBM-PC. As tur- 
mas terao uma media de 10 alunos, e o preco fica em torno de Cr$ 500 
mil. Maiores informacSes pelo telefone (021) 267-9268. 



Lotus mats 
acessivel 



Visando um maior volume de 
vendas, a Intercorp do Brasil, re- 
presentante nacional da Lotus, re- 
duziu os precos do 1-2-3 para 
160 ORTN e do Symphony, para 
270 ORTN. Ainda dentro desta 
estrat^gia, a empresa firmou con- 
trato com mais um revendedor 
autorizado: a loja paulista Com- 
pushop. O hot-line para usua- 
rios dos produtos Lotus e(021) 
205-6945. 



Supermini 
da Labo 



A Labo Eletronica colocara" no 
mercado mais um produto: trata- 
se do Supermini LABO 8090, que 
sera produzido com tecnologia da 
empresa alema Nixdorf Compu- 
ter. Segundo Carlos Augusto Cal- 
das da Silva, presidente da empre- 
sa, os investimentos previstos para 
este projeto sab de 10 milhoes de 
d6lares, e a primeira maquina ja 
devera estar exposta na Feira de 
Informatica 85. 



ANDEI quer participar 

A Andei — Associacab Nacional dos Dirigentes e Executivos de In- 
formatica existe ha quatro anos, possui oito regionais e congrega hoje 
cerca de 1.200 profissionais de informatica, a partir da categoria de ana- 
lista de sistemas. Segundo o presidente da entidade, SeVgio Araujo, a 
Andei atingiu hoje uma tal signif icacab que 6 inadmissi'vel o fato de nao 
estar sendo ouvida no processo de informatizacab da sociedade. O desa- 
bafo de SeVgio Araujo deve-se ao fato da entidade nao ter sido convida- 
da a participar do CON IN. 



Produtos 
para Limpeza 

A SCD, uma divisao da Marsh 
Eletrdnica, esta lancando uma li- 
nha de produtos especiais para 
limpeza de meios magnaticos (ca- 
becas), telas de vfdeo e monito- 
res, al6m de som profissional. 

Nova Fdbrica 
Scritta 

A Scritta Eletr&nica Ltda., fa- 
bricante das impressoras Grafix, 
acaba de se mudar para uma nova 
fabrica, na Alameda Amazonas, 
832 - Alphaville, Barueri - SP. 
Esta mudanca veio atender d ne- 
cessidade de aumento na produ- 
cao, devido a grande demanda do 
mercado. Os novos telefones da 
empresa sab (011) 421-3422 e 
421-1247 (vendas). 

DiginetXT 

A empresa paulista Basic Ele- 
tronica assumiu de vez a fabrica- 
cao do micro de 16 bits Diginet 
XT, cuja producab mensal esta 
prevista para 100 unidades a par- 
tir deste mes. O equipamento foi 
um desenvolvimento conjunto da 
Basic, fabricante de controladores 
Winchester e monitores de v(- 
deo — que sab revendidos em 
OEM para empresas como a Mi- 
crocraft, SID e Telsist — e da Di- 
ginet Eletronica e Informatica, 
empresa que fabrica terminals 
portateis para coleta de dados. 

Semindrios 
Sobracon 

A SOBRACON, Sociedade Bra- 
sileira de Comando Nume>ico, 
promovera em agosto, no Sao 
Paulo Hilton Hotel, tres eventos 
sobre Automacao Industrial; sao 
eles: 5? SCNB - Seminario de Co- 
mando NumeVico no Brasil (dias 
13 e 14); 1 a Jornada Internacio- 
nal de Automacao Industrial (dia 
15) e 2? EXPOCON - Exposicab 
de Comando Numerico e Correla- 
tes (13 e 15 de agosto). Maiores 
informacoes pelo telefone (011) 
255-2967, SP. 

Novidades PC 

A PC Software e Consultoria 
apresenta novos produtos, entre 
os quais destacam-se o PC Spool 
(para operar o computador quan- 
do a impressora estiver imprimin- 
do), o PC Drive (simulador de dri- 
ves) e o APL "PLUS uma versab 
da APL para rodar em IBM-PC. 
A PC fica na Av. Almte. Barroso 
91, gr. 1102 - Centro. Tel,: (021) 
220-5371 , Rio de Janeiro. 



Automacao Comercial 



As ultimas novidades da area 
de automacao comercial foram 
apresentadas na feira da Associa- 
cao Brasileira de Automacao Co- 
mercial (Abac), realizada em ju- 
nho, em Sao Paulo. A Itautec, Sid 
e Dismac sao algumas das empre- 
sas que esta"o investindo nessa area. 
A Itautec mostrou ao publico, 
num stand com a forma de um su- 
permercado, seu novo terminal 
ponto de venda I -5000, composto 
por um micro de 8 bits (Z 80) 
com mem6ria inicial de 64 Kb, 
expansi'vel ata 1 Mb. Podem ser 
arquivados no terminal os prepos 
e c6digos de 100 mil produtos, 
identificados atrav6s da leitura do 
c6digo de barras. No caso do PDV 
da Itautec, para a leitura podem 
ser acoplados um scanner a laser, 
um scanner manual (ou pistola lei- 
tors de codigo de barras), ou ain- 
da uma light pen (caneta 6tica). 
Estes dois ultimos sao fabricados 
pela Telematica Sistemas, comer- 
cializados em OEM e adaptados 
ao terminal atraves da safda RS 
232-C. O modelo basico do termi- 
nal l-5000custa 400 ORTN, e no 
segundo semestre ele ja estara sen- 
do comercializado. 

O PDV Sid 6000 a baseado em 
um micro de 16 bits, com proces- 
sador 8088, e possui memoria que 
vai de 64 Kb at4 3 Mb. O teclado 
a composto por quatro m6dulos, 



Gensoft I 



A Gensoft Informatica lancou 
o software Gensoft I, constitufdo 
de planilha, editor de textose ban- 
co de dados relacional. 

O programa foi escrito de for- 
ma interativa, com base nos con- 
ceitos de software de quarta gera- 
cao e possui sete m6du1os (texto, 
formato, calculo, arquivos, utilita- 
rios, tratamento e relatorio), aiam 
de um menu para o usuario. 

O Gensoft e garantido por seis 
meses e homologado pela SEI. O 
endereco da empresa e Av. Sao 
Gabriel, 495, tel,: (01 1 ) 881-2320 
e (011) 282-6018, Sao Paulo. 



Indices no 
Videotexto 



O Grupo Adiplan, especializa- 
do no campo de imbveis, 6 o mais 
novo integrante da rede de video- 
texto da TE LESP, fornecendo um 
completo mdice economico que 
informa os usuarios sobre os rea- 
justes dos alugu6is (residenciais e 
comerciais), cotacao do d6lar, ta- 
belas de financiamento do Siste- 
ma Financeiro da Habitacao, 
MVR e Cndice da inflacao. 




O terminal ponto de venda, da Dismac. O 1-5000 da Itautec 



o que possibilita a variacao de 24 
ate 76 teclas, de acordo com a ne- 
cessidade do usuario. Podem tam- 
b6m ser ligados ao PDV 6000 um 
scanner de mesa ou de mao, e o 
m6dulo basico do terminal custa 
500 ORTN. Sua comercializacao 
tera infcio em Janeiro pr6ximo. 

A Dismac mostrou na feira a 
maquina registradora 590/2.000, 
que funciona como terminal PDV 
baseado em processador Z-80A, 
com 64 Kb de memoria. Para a 
leitura do c6digo de barras po- 
dem ser conectados ao terminal 



um scanner ou uma light pen atra- 
v6s da sai'da RS 232-C. O primeiro 
sistema composto por esta maqui- 
na ja foi instalado no Hotel da 
Bahia, da rede Tropical de Hot6is, 
para registro das despesas dos h6s- 
pedes nos varios departamentos 
do hotel. 

A Swedata, por sua vez, mos- 
trou ao publico da feira sua nova 
light pen, que vem com interface 
RS 232 para ligacao aos terminals 
PDV. A caneta ja esta sendo co- 
mercializada e seu preco 6 de 
aproximadamente Cr$ 3 milhoes. 



Projeto Renesi 

Continuando o Projeto Renesi, a Servimec esta lancando a unidade 
do Rio Grande do Sul, para o que uniu-se a Sispro, tradicional bureau 
de servicos da regiao. A Servimec programou para este mes os semina- 
rios "Tacnicas de Programacao", de 13 a 16, e "Redes de Comunicacao 
de Dados", de 21 a 23, Outras informacoes podem ser obtidas pelo tele- 
fone (011) 222-1511. 



Circuito 
Impresso 



A Cirpress S.A. teve seus cir- 
cuitos multilayer homologados 
pela SEI, o que permitira a ex- 
portacao dessas placas para a in- 
glesa Ferranti Computer Systems 
Ltd., onde serao usadas na mon- 
tagem de computadores que equi- 
parao as novas corvetas encomen- 
dadas pela Marinha de Guerra do 
Brasil. 



Cursos ORT 



A ORT promove a partir de 
agosto os cursos: Formagao de 
Programadores (05/08 e 01/10); 
LOGO (02/09); Microcomputa- 
dores para Usuarios (Wordstar em 
12/08; dBase II em 15/08 e BA- 
SIC em 28/08), A ORT fica na 
rua Dona Mariana, n? 213, no Rio 
de Janeiro, e o telefone a 286-7842. 



MICRO SISTEMAS esclarece 

Na edicao de julho da revista MICRO SISTEMAS, foi veiculado um 
anuncio da maica Softline. Tendo em vista os telefones e consultas rece- 
bidas de pessoas que entendiam ser tal comercializacao mais um servico 
da revista MICRO SISTEMAS, a ATI Editora Ltda achou por bem escla- 
recer que a Softline a uma divisao da empresa JVA Microcomputadores. 

A atuacao da ATI Editora na comercializacao de software limita-se 
hoje aos servicos de digitacab dos programas ja publicados por MS nas 
fitas MS Save. 
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Por que um programador opta por determinada linguagem? 
Preferencia individual e um dos motivos, mas voce vera que a formagao 
tecnica e o mercado de trabalho tambem impoem os seus padroes 



A opcao por uma 
linguagem 



Para que as pessoas se entendam, 
e necessario que falem uma lin- 
guagem comum; e o mesmo 
acontece numa conversacao 
homem-maquina. Obviamente, se nos 
sentarmos em frente a um computador e 
comecarmos a lhe ditar ordens em por- 
tugues, a maquina permanecera indife- 
rente. Isto porque os computadores, 
tanto de grande porte como medio, 
minis e micros, sao programados para 
entenderem determinadas linguagens de 
computacao, podendo uma mesma lin- 
guagem ser usada em maquinas de ta- 
manhos diferentes. Um dos varios exem- 
plos seria o Cobol; programa-se em 
Cobol tanto em mainframes quanto em 
microcomputadores, especialmente nas 
aplicacoes voltadas para as areas admi- 
nistrativa e comercial. Sim, porque a 
existencia de uma grande variedade de 
linguagens se justifica principalmente 
pelo fato de que cada uma delas se 
adapta melhor a uma determinada apli- 
ca?ao. E claro que existem linguagens 
mais flexi'veis, cuja versatilidade permite 
que sejam usadas com eficiencia e rapi- 
dez em varias dreas, mas sempre tern 
aquela que e a ideal para o tipo de pro- 
grama que se esta" desenvolvendo. Este 
conceito de "ideal" e um tanto subjeti- 
vo, pois, como veremos a seguir, a 
opcao por determinada linguagem e ba- 
seada em varios fatores, desde a forma- 
920 do programador ate sua preferencia 
individual e as exigencias de mercado. 
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FORMAgAO INADEQUADA 

A formacao que um programador 
recebe na faculdade muitas vezes nao 
corresponde aquilo que ele vai encon- 
trar no mercado de trabalho. A maioria 
dos cursos superiores ainda esta mais 
voltada para equipamentos de grande 
porte, quando muitos dos que saem for- 
mados por esses cursos acabam indo 
trabalhar com maquinas menores, como 
minis ou microcomputadores, principal- 
mente hoje, quando o processamento 
distribui'do e uma realidade nas empre- 
sas. Em funcao disto, muitas faculdades 
estao se adaptando ao mercado e ja" 
incluem, por exemplo, o BASIC entre 
as linguagens que oferecem em seus cur- 
sos de processamento de dados. Mas, 
por enquanto, muitos programadores 
recem-formados continuam sendo obri- 
gados a aprender novas linguagens, que 
nao constavam dos curn'culos, para a 
batalha no mercado de trabalho. 

Ana Lucia Crispim se formou no fi- 
nal do ano passado em Ana'lise de Sis- 
temas pcla Pontifi'cia Universidade Cato- 
lica de Campinas. Do seu curso, faziam 
parte as linguagens PL 1 , Cobol, Fortran, 
Assembler e RPG. Seu primeiro estagio, 
no penultimo semestre da faculdade, foi 
na EletroPaulo, onde trabalhou com 
maquinas de grande porte. Mas ja em 
seguida foi estagiar na empresa Compu- 
max, que desenvolve software para a 
linha Itautec, e la teve seu primeiro 



contato com microcomputadores. Hoje, 
Ana Lucia trabalha na Unidade de De- 
senvolvimento de Microcomputadores 
do Citybank, onde desenvolve princi- 
palmente sistemas de comunicacao de 
dados. Os micros de sua secao sa"o os da 
Prologica, e as linguagens utilizadas sao 
basicamente o C e Assembler. A lingua- 
gem C e usada no desenvolvimento de 
quase todos os programas; somente 
em algumas rotinas onde o C na"o se 
adapta bem os programadores da Uni- 
dade de Micros usam o Assembler. 

A LINGUAGEM C 

Ana Lucia destaca que o C tern 
uma grande interatividade com Assem- 
bler, o que facilita a passagem e adapta- 
cao de uma para a outra. Alem desta 
vantagem, Ana destaca que a linguagem 
C e mais facil para se fazer uma manu- 
tencao no sistema ou a implementacao 
do mesmo, "alem do que e sempre mais 
rapido trabalhar com uma linguagem de 
alto ni'vel, como e o caso do C, do que 
com uma de baixo ni'vel", completa 
ela. Antes de trabalhar no Citybank, 
Ana nunca havia usado a linguagem C, 
que so veio a conhecer no proprio ban- 
co; porem achou o aprendizado facil, 
comparando-o com o do BASIC. 

Para Ana Lucia, um bom programa- 
dor tern que conhecer pelo menos uma 
linguagem de alto ni'vel e uma de bai- 
xo ni'vel, alem daquelas necessarias k m 
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PROGRAMAS PARA TK-2000. 

ci£ncia moderna de computacao ltda. 

Av. Rio Branco, 156 - Sub-Solo - Loja 127 - CEP 20.043 - Centro - RJ 
Tels.: (021) 262-5723 ou 240-9327 
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PROGRAMAS PARA TK-2000 
COLOR COMPUTER 



JOOOS DC ACAO EM LINGUAGEM DE MAQUIHA: 



ITEM PROO. 



(TIPO COME COME) 

IDEFENDA-SE DOS PARAQUEDISTAS) 
IMATE OS MONSTRONS NA CON6TRUCAO) 
(DESTRUA AS NAVES INVA80RA8I 
(DESVIE DAS ARANHAS NO tADIRINTO) 
(O TRADICIONAL INVADERS! 
(TIPO FORMULA I I 
(RALLY NO LADIRINTO) 
IDESTRUA OS AVIOES INIMIOOS) 
(EVITE O POUSO DOS INVAS0RE8) 
(3000 COM O MICRO NO TABULEIRO) 
MINUSCULAS/8ATALHA NAVAL (OERADOR DE CARACTERES MI- 
NUSCULAS COM O OAME BATALHA NAVAL) 
IDESTRUA OS OBSTACULOS COM S/JATO) 
(TRADICIONAL XADREZ) 
(TRADICIONAL FROOOER) 
(FLIPERAMA! 

IDESTRUA OS DISCOS VOADORES) 
IFECHE O TABULEIRO PRIHEIRO) 
(GOBBLER VERSAO AVANCADA) 
(APARE SUICIDA) 

(VOCE E O PILOTO DE UM BOMBARDEIRO) 
(NOVA VERSAO DO FLIPERAMA) 
(ELIMINE AS ARANHAS INVAS0RA3) 
(PASSE PELO CAMPO DE ASTEROIDES) 
(FORMULA I COM DIVERSOS CIRCUITOS) 
IDESTRUA OS OVOS ESPACIAI3) 
IDESTRUA A NAVE BASE) 
(ULTRAPASSE OS ATEROIDES) 



001 


00B8LER 


002 


SABOTAQEM 


003 


PANICO 


004 


ATAQUE 


009 


DUNO BEETLES 


006 


INVAS0RE3 


00 V 


AUTO-ESTRADA 


008 


HEAD 


00* 


BLITZ 


01O 


U.F. 0. 


01 1 


OTHELLO 


012 


MINUSCULAS/B 



013 
014 
013 
016 
017 

oie 

019 
02O 

021 
022 
023 
021 
023 
026 
027 
028 
029 



BOMBARDEIRO 

XADREZ 

PULO-DO-SAPO 

FLIPERAMA 

CEILING ZERO 

GOMOKU 

MAZEMAN 

SUICIDIO 

ELIMINATOR 

NIGHT MISSION 

BUG-ATTACK 

ASTEROIDS 

GRAN-PRIX 

8PACE-E00S 

OAMKA-GOBBLINS 

GALAXIANS 



SJMULADOR DE VOO (FAMOSO FLIGHT SIMULATOR) 









030 


OEFENS 


IDEFENDA A CIDADE DO RAIO MORTAL) 


EH 


FITA 


18.000 










031 


UORMH 1 


10 OB.IETIVO HE CHEOAR AO NUCLEO) 


EM 


FITA 


18.000 










032 


LUNNAR 1 


IATERRISE NA BASE LUNAR) 


EM 


FITA 


18.000 










033 


ESPADACM1H 


(LUTA DE ESPADA) 


EM 


FITA 


18.000 










034 


DEATH STAR 


(DESTRUA A E3TRELA DA MORTEI 


EM 


FITA 












033 


ESC AL AD ft 














16.000 


<»l 






HELICOPTERO) 


EM 


FITA 


IB. 000 




EM FITA 






036 


NORAD 


(DESTRUA OS MISSEIS HUCLEARES! 


EM 


FITA 


18.000 








037 


OOROON 


(SALVE OS TERRAOUEOS DOS MORCEGOS) 


EM 


FITA 


10.000 










038 


POKER 


















039 


MIGHT CRAWLER 


IT IPO INVADERS) 


•EM 


DISCO 












040 


CORRIDA 


(DESVIE DO CARRO SUICIDA) 


•EM 


DISCO 


"39.000 








(»> 


041 


ALIEN AHBUSH 


IDESTRUA OS ATEROIDES ) 


■EM 


DliCO 


■39.000 




EM FITA 


16. 000 
















EM FITA 




















EM FITA 


16.000 


(*) 




UTILITARIOS 












EM FITA 


20. 000 


















EM FITA 


16.000 


l*> 


042 


CALCULADORA 


IFACA DO SEU MICRO UMA CALCULADORA 


•EM 


DISCO 


39.000 




EM FITA 


1 7 . 000 


(»> 




HAL A D I RET A 


(ETIOUETAS PARA CORRESPONDENCE) 


■EM 


DISCO 


30.000 




EM FITA 


16. 000 


(#) 


044 


CONTROLE DE CL IENTES 1AR0UIV0 E CADASTRAMENtO DA 










EM FITA 


16. 000 


<*► 






CLIEHTELAI 


EM FITA 


30.000 




EM FITA 


16. 000 


l«l 


043. 


CALC-200O 


(VISICALC P/O SEU 2000) 


EM FITA 


45.000 




EM FITA 


16. 000 


<•> 


046 


CONTROLE BANCARIO ICONTROLE S/CONTA BANCARIA) 


EM riTA 


30.000 


(•1 


EM FITA 


16. 000 


(*> 


047 


MUTICALC 


INQVA VERSAO DO CALC-20001 


-EM DISCO" 


20.000 




EM FITA 


1 6 . 000 


l»l 


048 


BANCO DE DADOS 


(DATA BASE) 


"EM DISCO* 


33.000 




EM FITA 


16. 000 


(*) 


049 


LOTO 


(MATCMATICA DA LOTO- FIQUE M1LI0MA- 










EM FITA 


IB. .000 


(#1 






NAR I ) 


EM DISCO" 


43.000 




EM FITA 


18.000 


(•) 


030 


GRAPLOT 


IFACA DESENHOS NA TELA E IHPRESSORA 


E>l FITA 


18.000 


1*1 


EM FITA 


1Q. 000 


It) 
















EM FITA 


18. 000 


(II 
















EM FITA 


18. 000 


u 1 


OBS. 


: (») -> PROGRAMAS DISPONIVEIS TAMBEM EM DTSI.ETTE. 










EM FITA 


18. OOO 


(•> 
















EM FITA 


18.000 


(•> 




1 PROGRAMA EM DISKETTE. CR» 38. OOO 










EM FITA 


38.000 






2 PROORAHAS H 


UM DISKETTE. CR» 32.000 











PROGRAMAS PARA COMMODORE 64 



JOOOS EM LINGUAGEM DE MAQUINA: 



ZTEM/PROG. 



101 A.M.C. 60. OOO 80.000 

102 ARCHON 70. OOO 9O.000 

103 8A0 IT MAN 60. OOO 80.000 

104 BANDITS 70. OOO 9O.000 
103 BC QUEST FOR 

TIRES 70. OOO 90.000 

106 BEACH HEAD 90.000 

107 BLUE MAX 60. OOO 80.000 

108 BUCK RODGERS 60. OOO 80.000 

109 CASTLE UOL- 

FENSTEIN 90.000 

HO CENTIPEDE 60. OOO 80.000 

111 CHOPLIFTER 60. OOO 80.000 

112 COHEN'S TOMER 60. OOO 80.000 

113 COLOSSUS CHESS 70. OOO 90.000 

114 CONGO BONGO 60. OOO 80.000 

113 DALLAS QUEST 90.000 

lift DECATHLON 70. OOO 90.000 

117 DEFENDER 60. OOO 80.000 

11Q DINO EGGS 60.000 80.000 

119 EAGLE EMPIRE 60. OOO 80.000 

120 ELIZA 60. OOO 80.000 

121 FALCON PATROL 60. OOO 80.000 
12Z FLIGHT SIMULA 

TOR II 120. OOO 

123 FLIER FOX 90.000 

124 FORT AP0CALYPSE70.O00 90.000 
123 FROGGER 60.000 80.000 

126 FROGGER II 60. OOO 80.000 

127 GALAXY 60. OOO 80.000 

128 QHOSTLBUSTERS 100.000 

129 GRIDRUNNER 60. OOO 80.000 

130 OYDLRUSS 70. OOO 90 . OOO 

131 HARD MAT MACK 70.000 90. OOO 

132 HERO 70. OOO 90.000 

133 IMPOSSIBLE 100.000 

134 JUICE 60. OOO 80.000 
133 JUMPMAN 70. OOO 90.000 

136 JUNGLE HUNT 60. OOO 80.000 

137 KICK MAN 60. OOO 80.000 

138 KONG 64 60. OOO 80.000 

139 LE MANS 60. OOO 80.000 

140 MINER 2049 ER 60. OOO 80.000 

141 MOUNTAIN KING 60. OOO 80 . OOO 

142 MUSIC MASTER 60.000 80.000 

143 NIGHT MISSION 70. OOO 90.000 

144 ONE ON ONE 

BASKET 70. OOO 90.000 

143 PACMAN 60. OOO 80.000 

146 PITFALL II 70. OOO 90 . 000 

147 PITSTOP 70. OOO 90.000 

148 PITSTOP II 70. OOO 90.000 

149 POLE POSITION 70.000 90.000 



CONTINUACAO DO FAMOSO GRIDRUNNER 

TABULEIRO TIPO XADREZ C/BATALHA 

LADRAO ROUBA SACOS DE OURO 

INVASORES ROUBANDO NO ATAQUE A TERRA. 

DESENHO ANIMADO DE BRUCUTU. 
INVASAO NAVAL /TERRESTRE EM 3D 
BATALHA AEREA EM 3 D 
PILOTE SUA NAVE NO PLANETA 3D 

AVENTURA NO QO NAZISTA 

A COBRA DO ATARI 

RESGATE COM HELICOPTERO 

OFFICE BOY NOS ELEVADORES 

PODEROSO XADREZ 

CACADOR NA AFRICA 3D 

AS AVENTURAS DE J.R. EH DALLAS 

OL1MPIADA 10 ESPORTES. 

O FAMOSO DA ATARI 

PEGUE OS OVOS DE DINOSSAURO 

rOUAL AO FENIX 

SESSAO DE PSICOLOGIA CONVERSA EM INGLES 

BATALHA A JATO EM ALTA RESOLUCAO 

SIMULADOR DE VOO. SENSAC IONAL 

PILOTE JATO PARA DEFENDER B32.FALA! 

ESPETACULAR SALVAMENTO EM HELICOPTERO 

AJUDE O SAPO A CHEGAR NA TOCA 

O SAPO DE NOVO. 3 NOVAS TEL AS 

IGUAL AO FANTASTIC DO FLIPPER 

O FAMOSO FILME AGORA EM JOGO 

PILOTE SUA NAVE NO GRID XY 

DESTRUA BALLET DE NAVES. LINDA MUSICA 

TRABALHAHDO NA CONSTRUCAO. OT IMO 

RESGATE NA MIMA. ESPETACULAR ACTIVISION 

SUPER JOGO DE ESPI0NAGEM.COM VOZ 

AMARELINHA TIPO Q « BERT 

EXCELENTE JOGO DE DESTREZA.30 TELAS 

CACADOR NA AFRICA . IGUAL AO FLIPER 

EQUILIBR1STA DE BALOES E OS PAC MEN 

OTIMO KONG.SEMELHANTE AO DO IBM PC 

CORRIDA IGUAL A F l.PRECISA DE PADDLES 

FAMOSO JOGO DAS Ml NAS 

ACHE A CORDA DO RE I DA MOHTANHA 

P I ANO /ORGAO/ S I NTE T I ZADOR 

UMA MESA DE PINBALL DO FLIPPER NA TELA 

MARAVILHOSO BASOUETE DA ELETRONIC ARTS 
O FAMOSO DA ATARI E DO FLIPPER 
AVEMTURA NAS CARVENAS. MUI TO BONITO 
CORRIDA 1-1 C/ PARADA NOS BOXES 
MOVA VERSAO COM Oil MAS TELAS 
CORRIDA F-l (GP JAPAO) C/TREINOS 



SINUCA 

O JOOO DO MARINHEIRO. IGUAL AO FLIPPER 
O FAMOSO PULA PULA TRIDIMENC IONAL 
JOGO DAS AREAS. IGUAL AO DO FLIPPER 
PERSEGUINDO IGUAL A RALLYX 
ATAQUE A RUSSIA NA TERCEIRA GUERRA 
BATALHA NO RIO IGUAL AO ATARI 
FAMOSO CAMPEAO DE XADREZ DE MICROS 
DISCOS VOADORES SOBRE A CASA BRANCA 
PERSEGUICAO POLICIAL NA CIDADE 
ATAQUE AEREO C /OBSTACULOS (FLIPPER) 
AJUDE O PINGUIM.13 TELAS 

FUTEDOL ESPETACULAR P/2 OU MAIS JOG. 

SIMULADOR DE VOO 

PILOTE A NAVE ESPACIAL 

PERSIGUICAO DE ESPIOES 

OS ESPIOES DA MAD EM VIDEOGAHE 

IGUAL AO FAMOSO FILME DO CINEMA E TV 

IGUAL AO FILME 3D 

POKER INTIMO C/SUZI E HELI3SA 

OL1MPIADA. EXCELENTE SOH E GRAF 1 COS 

TENIS EM 3D 

FABR1CA DE BRINQUEDOS BLIZARROS 

ATAQUE AOS ASTEROIDS EM 3D 

DIRIJA O ZEPELIM NA CAVERNA 



173 DOCTOR TEST 80. OOO 100. OOO TESTA C-64 DISCO/ TAPE / IMPRESS . 

176 BACKUP VI 90.000 COPIADOR DE PROGRAMAS EM FITA 

177 Dl SECTOR 100. OOO COPIADOR EM DISCO 

178 DISK O 64 80. OOO NOVOS COMANDOS (CATALOG/SCRATCH /ETC) 

179 DOODLE 100. OOO DESENHOS EM ALTA RESOLUCAO IMPRIME 

180 EASY MAIL 100. OOO MALA DIRETA NOME ENDERECO 

181 EASY SCRIPT 130.000 170.000 PROCESSADOR DE TEXTOS C/MANUAL 2 VOL. 

182 FAST LOAD 80. OOO ACELERA O DISK DRIVE 3 VEZES 

183 KOALA PAINTER 100. OOO UTILITARIOS P/DESENHOS EM TELA 

184 LOGO 160.000 ESTA VERSAO NAO IHCLUI MANUAL I-400PGI 

183 LOGO 240. OOO LINGUAGEM PROCERURAL TIPO LISP.GRA- 

FICA 

186 MAGIC DESK 100. OOO PROCESSADOR DE TEXTOS E AROUIVOS 

187 PAINT MAGIC 100. OOO DESENHOS HI -RES AVANCADOS 

188 PETSPEED 100. OOO COMPILADOR BASIC 

189 PRATICALC 80.000 100. OOO PLANILHA ELETROHICA TIPO VISCALC 

190 PRACTIFILE - 100. OOO BANCO DE DADOS 

191 S.A.M. 8O.000 100.000 SOFTUARE P/C-64 FALAR I IHTRUCAO SAYI 

192 THE MANAGER 140. OOO 

193 TOTAL TELECOMM. 120.000 C0MUN1CACA0 VIA RS 23ZC OU HODEH 

194 TURBO TAPE 64 80.000 - ACELERA CASSETE QUASE IC-UAL AO DISK DRIVE 

193 ULTRACOI'Y 160.000 COPIADOR DE IHCGRAMAS PROTEOIDOS 

DBS: 

TODOS OS PROGRAMAS ACOMPANHAM O MANUAL. CASO CONTRARIO SAO AUTO-EXPL I CAT 1 VOS. 
TEMOS DIVERSOS OUTROS PROGRAMAS. SOLICITE UMA LISTA COMPLEIA. 



130 


POOL 64 


AO 


000 


80 


OOO 


191 


POPEYE 


70 


000 


90 


000 


132 


QDBERT 


ao 


000 


80 


OOO 


l-j.\ 


QIX 


AO 


000 


80 


OOO 


134 


RADAR RAT RACE 


60 


000 


80 


OOO 


133 
196 






100 
90 


OOO 
OOO 


RIVER RAID 


70 


000 


137 


SAROON II CHESS70 


000 


90 


OOO 


138 


SAUCER ATTACK 


70 


000 


90 


OOO 


139 


SIREN CITY 


AO 


000 


80 


OOO 


160 


SKRAHBLE 


60 


000 


80 


OOO 


161 


SNOOK IE 


AO 


000 


80 


OOO 


162 


SOCCER IINTER- 












NAC I ONAL ) 


60 


000 


80 


OOO 


163 


SOLO FLIGHT 


70 


000 


90 


000 


164 


SPACE SHUTTLE 


60 


000 


80 


OOO 


163 


SPY HUNTER 


70 


000 


90 


OOO 


166 


SPY VS SPY 






100 


000 






167 


STAR TREK 


70 


000 


90 


000 


168 


STAR MARS 


70 


000 


90 


OOO 


169 


STRIP POKER 






100 


OOO 






170 


SUMMER GAMES 






100 


OOO 






171 


TENNIS COURT 


70 


000 


80 


OOO 


172 


TOY BIZARRE 


AO 


ooo 


80 


OOO 


173 


ZAXXON 


70 


000 


90 


OOO 


174 


ZEPPELIN 


70 


OOO 


90 


OOO 


ULTILITARIOS: 











Desejo receber 

N?s PROGRA 
NOME: 


os seguintes programas 
MAS: 


pelo(s) 


qual(is) 


pagarei a quantia de Cr$ 


















































END.: 


CIDADE: 










UF.: 


) Ltda. 

inclusa 


enderecado a 


ATI, 


CEP: 
Av. Presidente Wilson, 


165 


Para tal estou 
Grupo 1210- 


enviando 
Centro, 


um cheque 
CEP 20.030 


nominal a Ciencia Moderna de Computacac 
- Rio de Janeiro-RJ. Despesas de Correio 



OPQAO por uma linguagem 



area especifica que pretende seguir. Ela 
cita, por exemplo, o caso daqueles que 
pretendem trabalhar com software bisi- 
co, e que deverSo ter conhecimento de 
sistemas operacionais. 

Clinson Tadashi Takabatake, do mes- 
mo departamento que Ana Lucia, 
acrescenta que para trabalhar na area de 
software basico, alem de ter conheci- 
mento profundo de pelo menos uma 
linguagem, o futuro professional deve 
conhecer tambem o hardware, e apren- 
der a logica de estruturagSo de progra- 
mas. 

Clinson 6 formado pelo Instituto 
Tecnologico da Aerondutica, onde fez 
o curso de Tecnologia em Computaca"o. 
Do curn'culo fizeram parte as linguagens 
Pascal, Fortran, Algol, Cobol, PL 1, 
Assembler para IBM 360, Assembler 
para micros e BASIC. Ele foi desenvol- 
ver um sistema de emulacao de termi- 
nals no Citybank, pela Prologica, e aca- 
bou ficando no banco. Quando entrou 
na Unidade de Micros, os programado- 
res trabalhavam com Assembler, que ele 
conhecia da faculdade. Mais tarde, 
porem, uma decisao da matriz do banco, 
que fica nos Estados Unidos, optava 
pela padronizacao na linguagem C. 
Clinson fez o curso em uma semana e 
logo se adaptou & nova linguagem, prin- 
cipalmente por ser, segundo ele, pare- 
cida com o Pascal, que e a linguagem 
de sua preferencia. Alem do fdcil apren- 
dizado, Clinson ressalta a facilidade 
para se compilar a linguagem C e passar 
para outros equipamentos, mesmo de 
porte diferente, como de micros para 
mini. Como outra vantagem, ele aponta 
ainda os recursos que o C possui por ser 
uma linguagem estruturada, o que faci- 
lita na hora de debugar. 

COBOL, OS PROS E CONTRAS 

Normalmente o primeiro departa- 
mento de uma empresa para o qual se 
pensa em computadores, sejam eles de 
grande ou pequeno porte, e o admin is- 
trativo-financeiro, dado o volume de" in- 
formacoes que trafegam nesta secao. E 
quando se pensa em uma linguagem de 
computa^ao que se adeque a esta area, 
imediatamente vem £ mente o Cobol. 

A linguagem Cobol chega a ser vista hoje 
como uma porta de entrada para o ta"o 
disputado mercado de trabalho. E foi jus- 
tamente isso que levou Domingo Matte 
Hirart a fazer um curso na Servimec, 
com duracao de um ano e tres meses. 
Mas a realidade aqui fora estava bem 
mais dura do que se divulga por ai, e 
Domingo ficou quase um ano k procura 
de emprego, gastando, segundo ele 
mesmo conta, tres pares de sapato 
nas andancas. 

Hoje Domingo trabalha como progra- 
mador do Centro de Estudos e Pesquisas 



28 



da Administracao Municipal, 6rgao da 
Fundacao Faria Lima ligado a Secreta- 
ria do Interior de Sa"o Paulo. A Divisa"o 
de Programac^o possui um S-700, da 
Prologica, e Domingo trabalha princi- 
palmente com Cobol, apesar de ter 
aprendido tambem BASIC e Assembler 
por conta pr6pria, com ajuda dos cursos 
publicados em MICRO SISTEMAS. Ele 
prefere o Cobol por facilitar o manuseio 
de arquivos, o que no caso do trabalho 
que desenvolve 6 essencial, pois na 
Divisa*o de Programaca"o e feita a folha 
de pagamento de todos os funciondrios 
da Secretaria do Interior. 

Outro profissional que tambe'm tern 
preferfincia pela linguagem Cobol e Jose 
Maria Lopes de Carvalho, um dos s6cios 
da Omni Informatica e Comercio, em- 
presa de Campinas que atua como soft- 
ware-house, consultora e revenda de 
computadores. Jose Maria formou-se 
em CiSncia da Computaca"o pela Uni- 
camp, e durante o curso teve oportuni- 
dade de conhecer uma serie de lingua- 
gens como Fortran, Pascal, Assembler, 
Algol, Lisp, BASIC e Cobol. Na Omni 
sao desenvolvidos, principalmente, 
sistemas na area de planejamento em 
micros da Edisa, modelos ED -281 e 
251, em Cobol, que Jose Maria diz pre- 
ferir por ser uma linguagem facil de se 
documentar. 

BASIC na"o e uma linguagem des- 
cartada na Omni, mas fica em segundo 
piano, para quando ha necessidade de 
maior velocidade ou para a criacSo de 
figuras. 

Uma opiniao bastante divergente das 
de Domingo e Jose Maria e a de Nelson 
R. Costa, analista de sistemas e gerente 
da Biblioteca Brasileira de Software. 
Nelson, por exemplo, nao usa Cobol, se- 
gundo ele por ser uma linguagem que 
nao tern um interpretador. "Com Co- 
bol voce nao pode testar o programa 
passo a passo e corrigir de imediato 
quando necessario, como em BASIC ou 
outras linguagens. Primeiro precisa-se 
compilar o programa para depois enta"o 
testa -lo integralmente", afirma Nelson. 

COME^AR PELO ASSEMBLER 

Nelson fez Engenharia Eletronica na 
Universidade de Sao Paulo, cursou 
Fortran, Algol, Cobol e Assembler e 
aprendeu BASIC por conta propria. 

Ele destaca que um programador de- 
ve conhecer primeiramente uma lingua- 
gem a ni'vel de maquina, para saber 
como usar os recursos do equipamento 
e inclusive das proprias linguagens de 
alto ni'vel. Segundo Nelson, o ideal e 
que se comece a estudar Assembler: 
"Mesmo parecendo mais complexa e 
muito importante". E ele diz isso 
pela experiencia que adquiriu trabalhan- 
do em micros desde o surgimento das 



primeiras miquinas no Brasil, quando 
comecou a programar como free -lancer 
para diversas software -houses. Agora, 
Nelson esta escrevendo um livro com di- 
cas, tdcnicas e sub-rotinas para a linha 
Apple, resultado desta experiencia que 
acumulou. 

Na Potencial, uma software -house de 
Campinas que desenvolve programas 
para micros de 8 e 16 bits, sa"o usadas 
as linguagens BASIC, Assembler, Cobol 
e Pascal. Segundo o diretor da empresa, 
Jose* Ricardo Landi de Mattos, a lingua- 
gem BASIC 6 usada na maioria dos pro- 
gramas para a linha Apple em configu- 
racSo bjJsica. "Isso para que nSo haja 
necessidade de placas adicionais, aumen- 
tando o custo final para o usuario", ex- 
plica. Segundo ele, a utilizaca"o do 
Assembler agiliza a programacSo, fun- 
cionando quase que como um utilitaVio 
do BASIC para sub-rotinas. Cobol 
e Pascal sSo usados na Potencial para 
desenvolvimento dos programas mais 
complexos; o Cobol por ser uma das 
linguagens mais conhecidas e por rodar 
em 90% dos sistemas e o Pascal pela sua 
velocidade e modularidade de estrutura. 

TRABALHANDO EM DBASE 

Alguns sistemas de software sa"o ta"o 
possantes que acaba sendo possi'vel 
trabalhar "dentro" deles, como se fos- 
sem linguagens. Este e o caso, por 
exemplo, do DBase e do Lotus; e Filippo 
Galante, programador e colaborador 
de MICRO SISTEMAS, programa em am- 
bos os pacotes, e agora esta comecando a 
usar o DBase III. Filippo fez Engenharia 
de Producao na Escola Politecnica da 
USP, e como parte do curn'culo teve 
cursos de Assembler e Fortran. Mais 
tarde fez curso de Cobol e comecou a 
mexer com micros ha quatro anos, 
quando comprou um e passou a atuar 
como aut6nomo. Hoje ele possui um 
software -house, a Figa Informatica, e 
desenvolve sistemas na drea administra- 
tiva. Alem do DBase e Lotus, Filippo 
usa BASIC, Assembler e C. Segundo ele, 
com o DBase pode-se obter os primeiros 
resultados de um trabalho rapidamente, 
e a linguagem e ideal para o manuseio 
de informacoes. Para Filippo, o BASIC 
e uma linguagem interessante de se tra- 
balhar porque todo mundo conhece, 
"e a linguagem mae do micro", afirma. 
Ja o Assembler e a linguagem de sua pre- 
ferencia pelo fato do programador ter o 
domi'nio completo sobre a maquina. 
Quanto d linguagem C, Filippo afirma 
que e uma das mais poderosas que se 
tern para trabalhar, mas, segundo ele, 
o mercado brasileiro 6 meio refratario, 
simplesmente porque nSo conhece. "0 
mercado sempre resistiu a novas lingua- 
gens. Muitas pessoas, por exemplo, 
ainda trabalham com Cobol, que eu na"o m 

MICRO SISTEMAS, agosto/85 



CHEGOU MULTILIST. 

ESQUEQA 

AFftSENEGRA 

DASUAVIDA. 

Multilist e o papel autocopiativo 

para listagem de computadores 

de qualquer porte. Ele e revestido 

com uma camada invisfvel 

de corante, suficiente para fazer 

copias limpas, nitidas e legiveis 

em ate tres vias, eiiminando o uso 

do carbono intercalado, 

comum nos formularios continuos. 

Multilist aumenta a produtividade 

da impressora, simplifica diversas 

etapas apos o processo de 
impressao e reduz o trabalho do 
operador. Esquega a fase negra 
da sua vida Com Multilist, voce 
vai entrar na Era da Informatica. 
Consulte a Matarazzo ou a grafica 
de sua preferencia. 




UM PRODUTO 

MATARAZZO 

Rua tnlenctencia, 165 ■ Belenzinho - Tel (01 1 ) 29t-84S5> 
Telex (01 1) 23789 - SSo Paulo - SP - Brasil 




OPgAO POR UMA LINGUAGEM 



acho que seja urna lingua gem idea! para 
micros. mesmo program a em BASIC 
e mais rapido do que em Coboi T ', Para 
FHippo, uma pes&oa que conheca bem 
uma linguagem,, podcra" inigniT desta 
para outras sem dificuldades. Hie acha 
que o fundamental para um programa- 
dor c muito suor, scalar por muilo tem- 
po diante de uma ma'quina, algumas 
vezes para conseguir resultados mini- 
mus. "En scrnprc digo que quando 
ma is aprendi foi no descnvolvimento 
de um BistcmB que niio deu certo'*. 
conclui. 

FORTH, ENTRE BASIC 
E ASSEMBLER 

Fernando da Costa Grossi tern 17 
anos e programs ha' cerca de dois an ox 
c meto per conta propria, principal- 
man te na area de jogos. Aprctideu BA- 
SIC a I raves do manual da ma'quina que 
possuia, um TK, e mats tarde, atraves 
de livros, aprendeu Assembler e Forth. 
Fernando esti no primelro ano de Pro- 
eessamento de Dados e pretende ficar 
na irea de programaclo ou cm hardware, 
Ele classifies o BASIC como uma lin- 
guagem voltada para o programador c 
diftcil para a ma'quina entender; enquan- 
to que o Assembler, segundo ele, e 
ideal para a ma'quina mas o programa- 
dor tern que sc virar, pois as instruc5es 
sao simples d em a is e, para se conseguir 
um comando, va'rias instructs sao nc- 
cessaiias. "Voce tern que pensar cojiio 
se fosse uma miquina. Depots, se voc£ 
erra, rem que comecar tudo de novo", 
dii ele. Fernando gosta dc trabalhar cm 
Forth* que em sua opiniao e uma lingua- 
gem mtermediaria entre BASIC e Assem- 
bler. Ele acha que o Forth € lacil de set 
programado e que a maquina entende, 
e ainda que e uma linguagem rapid:, e 
que pode scr considerada de alto nivel. 
Segundo Fernando* no Brasll eslamoi 
superatrasados cm Icrmos de linguagens 



de compuiacio, e estas que hojc sjFo usa- 
dax aqui ja cstffo superadas. E ele aponla 
as linguagem do luturo como sen do C, 
Macrocobol, uma especie de juncSo en- 
tre Cobol e Assembler; Prolog, uma lin- 
guagem de Intel igencia artificial e pro- 
pria Forth. 

Milton Maldonado Junior trabalha 
com Fernando e os dois cstflo inclusive 
lancando, pcla cdiTora Alcph. um livro 
com listagens dc jogos, dicas c ttfenicas 
de program aciJo; o "Super Basic TK 41 , 
Milton fax Bngeuhariu Elctriea na Escola 
Politdentea da USP e program a em BA- 
SlC t Cobol k Fortran e Assembler. Es,ra 
ultima ele utilize apenas para o desen- 
volvimento de suh-mliiius c uiilitarios 
Cobol ele considera uma linguagem 
que, de mi'cio. e muito dificil aliJm de 
muito formal e ri'gida, nSo admitindo 
variacdes no vocabulario, Na area de lo- 
gos, Milton pre fere trabalhar em BASIC 
compilado. Para ele, a maior vantagem 
do BASIC compilado e a velocidadc, 
que pode variar de 50 a mil vezes mais 
do que o Basle do TK, a! em da reduejo 
do gasto de moniona 

AS VEDETES: BASIC E COBOL 

comportamento das pessoas que 
procurain os cursos de linguagens de 
computaca'o e dc cerra forma homogi- 
neo, e os inlereSses geralmente se con 
cent ram em duas dessas linguagens: BA- 
SIC e Cobol. Segundo Lute Carlos Izzo, 
diretor da escola S.O.S Compuladores, 
a maioria procura pclos cursos de BA- 
SIC, para tomarem contain com a .in ■,< 
dc in forma tica, Polo que const alamos, 
o uitercssc pelo BASIC e maior en I re os 
mais juvens, como Maria Rita Cordaro, 
dc IS anos. aluna do curso de BASIC da 
S.O.S c que pretende comecar rta irea 
como digtladora. Maria Rita pretende 
fazer tamboni a curso de Cobol, pin- 
causa do mercado de trabalho. Marcio 
FbMa Obveini Gonzaga esta" cursando 



o tcrceiro colegial e foi fazer o curso dc 
BASIC para arrumar emprego. Ele pre- 
tende comecar pelo set or de dlgitafflo 
de um banco e ficar em eoniputaclo, 
porque e uma area que Ihe interessa e 
"porque dft dinheiro' , e sua ideia e um 
dia chegar a ser programador. )& Carlos 
Antonio Cunha Fcrreira. dc 24 anos, 6 
formado em Economia e dono dc um 
posto dc gasolina, c rcsolveu fazer um 
curso dc Cobol na S,0,S para ter infor- 
macros sob re a drca de in format ica. A 
escollia pel a linguagem foi pelo fa to do 
Cobol scr mais voltado para a a'rea co- 
mercial, segundo Ihe indicou um amigo, 
curso Ihe desperlou inleresse em des- 
cobrir mais sob re com put ac So, c hoje 
j& pensa Inclusive em fazer Analise de 
Sis(emas. 

Alberto Tossuntan, de 26 anos, faz 
Ciencias Contabeis u trabalha na loja de 
calcados de seu pal; aquilo que apreudei 
no curso de Cobol ele pretende usar no 
trabalho. Sua ideia c, mais tarde, conci- 
lia r as areas dc Ciencias Contabeis e 
ComputacaTo, Marisa Carvalho & forma da 
em Lclras e o interesse pelo curso de 
Cobol naseeu em funca"o do mercado de 
trabalho- Ela pretende trabalhar em 
computacSo, e atraves dos jornais iden- 
tificou o Cobol como a linguagem ntajs 
sollcitada pel as emptcaas. 

Voltando I tal da subjetividadc que 
rnencionamos no infcio do texto, live* 
moa oporlunidadc dc; pert^eber com os 
depoimentos dos programadorcs, que 
para cada lipo de programa I. a uma lin- 
guagem que melhor se adapta, ou uma 
& qiml o programador se adapts melhor, 
Vemos af que a escolha da linguagem 
acaba sen do uma quest 5o de opcao pes- 
soal, ou, algumas vezes, de imposieffo do 
mercado de trabalho. 



Reportagem tie Si«l.i Lachtermacher 



Eis aqui uma pequena rotina que Simula a fungao 
DELETE, inexistente nos micros de logica Sinclair 
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ClAudio Bittencourt. 



Aqui estamos de novo com mais 
um utilitario. Desta vez trata- 
se de uma pequena rotina, 
preparada para ser montada 
em forma de m6dulo no MICRO BUG, 
cuja finalidade e apagar blocos de linha 
BASIC, simulando a funcSo Delete, ine- 
xistente nos micros da familia Sinclair. 

Carregue o MICRO BUG, que deve 
estar completo, com todas as rotinas 
publicadas desde o n? 31 ao 39 de MS. 
Em seguida, com o comando M, entre 
os codigos da listagem. Para checar a 
digita?ao, utilize o comando P 6E00, 
783A, que deve dar como resultado 
44EE. Agora grave o modulo em fita 
com o comando I 6E00,783C em velo- 
cidade normal (300 bps). 

Esta pronto o seu DELETE GGMI 
(aten5ao: o SGM do seu MICRO BUG 
nao o reconhecera" enquanto voce nao 
o carregar da fita para o micro). Para 



carreg^-lo utilize o comando C. 

A sintaxe do mOdulo e a seguinte: 
W xxxx,yyyy; onde xxxx e a primeira 
linha a ser apagada, e yyyy, a ultima. O 
comando sera" recusado com a informa- 
9ao "LINHA ILEGAL", se yyyy for me- 
nor que xxxx ou se a sintaxe nao esti- 
ver completa. Muita atengao, pois, em 
geral, seu MICRO BUG esta" preparado 
para receber dados em hexadecimal e e 
necessario o carater S antes dos valores 
em decimal, para que estes sejam corre- 
tamente interpretados. 

Pratique um pouco e verifique que, 
se a linha xxxx nao existir, o Delete sera 
executado sobre a linha imediatamente 
superior. Caso a linha yyyy nao exista, 
a linha imediatamente inferior sera a 
ultima a ser deletada. 

Ao carregar este m6dulo, ou outro 
qualquer, lembre-se de que o comando 
C possui um sistema de seguranc^ que 





























DELETE GGMI 




7796 


CD 


F7 


7B 


CD 


23 


0F 


2 A 


33 


7 9 


ED 


r?m 


SB 


3.1 


79 


A7 


ED 


52 


DA 


27 


7C 


62 


77AA 


6B 


CO 


D8 


09 


7E 


l"E 


76 


CA 


36 


7€ 


77B4 


E5 


2A 


33 


79 


CD 


D8 


09 


20 


07 


2A 


77BE 


33 


79 


23 


CD 


D8 


09 


44 


4D 


Dl 


2A 


77C8 


14 


40 


C5 


D5 


A 7 


ED 


42 


C5 


E5 


CI 


770S 


E i 


ED 


80 


ED 


53 


14 


40 


ED 


53 


1A 


77DC 


40 


ED 


153 


1C 


40 


Dl 


El 


A 7 


ED 


52 


77E6 


E5 


ED 


SB 


10 


40 


EB 


ED 


52 


22 


10 


77F<d 


40 


D 1 


2A 


0C 


40 


ED 


52 


22 


0C 


40 


7 7 FA 


22 


29 


40 


C3 


36 


7t 










7800 


96 


77 


















7019 


29 


2A 


3 i 


2A 


39 


2A 


00 


2C 


2C 


32 


7823 


2E 


.1.0 


3C 


11 














783 A 


EE 


44 
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neutraliza carregamentos imperfeitos. Se 
isto ocorrer, repita o carregamento e, 
caso persista, e sinal de que hi defeito 
de grava9So na sua c6pia. Entretanto, 
nao hi necessidade de se digitar tudo 
outra vez, basta fazer as corre?Ses com 
o comando M. ■ 



Cldudio de Freitas B. Bittencourt 6 formado 
em Engenharia MetalOrgica e professor de 
pds-graduagao em Engenharia Nuclear do 
/ME — Instituto Militar de Engenharia, no 
Rio de Janeiro. 



MS E FEITA 

PARA VOCE 

PARTICIPE COM 

SUA OPINIAO 

Escreva-nosdi- 
zendo qual a sua 
a>ea de interesse, 
conte-nos tam- 
bdm assuas expe- 
riencias com seu 
micro, o que 
vocti quer ver 
publicado em MS, o que voce acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para voce. 
E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opiniao para Redacao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Sao Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 -Centro- CEP 20030- 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 -S§:o Paulo -SP. 




Veja neste programa, para a linha TRS-80, como o ajuste 
da velocidade de seu drive pode lhe poupar trabalho e, 
de quebra, aprenda um pouco de linguagem de maquina 



Acerte seu drive 



Odilmar Barbosa e Silva 



Noite chuvosa de sabado. Depois 
de mais de tres horas digitando 
aquele programa, voce decide 
parar. Tenta gravar o programa 
no disco e, entao, aparece a aterrorizan- 
te mensagem no canto da tela: CRC 
ERROR. Um frio arrepio lhe corre a 
espinha. Voce pensa coisas impublica- 
veis e tern vontade de jogar o computa- 
dor pela janela. Perdeu todo o seu traba- 
lho. 

Esta pequena historia de terror nos 
ensina duas coisas muito importantes: 
1 — salve o seu programa em intervalos 
curtos, pois, se algum imprevisto ocorrer, 
na"o perdera tanto servico; 2 — faca uma 
manutencao periodica de seus drives, 
pois, na maioria das vezes, o temido 
CRC e apenas uma questa"o de ajuste 
na velocidade de rotacffo dos discos. 

Parece brincadeira, mas e verdade. Os 
drives foram feitos para girar a 300 rpm, 
com uma variacao aceitavel de 1,5%, o 
que nos permitiria que a velocidade 
variasse entre 295,5 e 304,5 rpm. Qual- 
quer velocidade fora destes limites 
pode nos trazer problemas tais como o 
tal CRC, o "DATA RECORD NOT 
FOUND" etc 

A manutencSo dos drives deve ser 
feita por tecnicos especializados, pois 
para alguns ajustes como o alinhamento 
radial e necessario o uso do oscilosc6- 
pio. Ja o ajuste da velocidade, por 
exemplo, pode ser feito por voce mes- 
mo. 

Vamos neste artigo tentar mostrar 
como podemos fazer isto e, ao mesmo 
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tempo, aprender alguma coisa da lin- 
guagem Assembler, convertendo um 
programa originariamente feito para o 
Modelo III (CP-500 e similares) para o 
modelo I (Digitus e similares). Este 
programa mostra a velocidade do drive 
na tela como num velocimetro e foi 
desenvolvido pelo norte americano 
Mark D. Goodwin, em 1983. progra- 
ma fonte encontra-se publicado na re- 
vista 80 Micro, numero 56, edicao de 
setembro de 1984, pagina 72. 

ACERTANDO A VELOCIDADE 

controle da velocidade dos drives 
e feito atraves de um pequeno potencio- 
metro colocado na placa de componen- 
tes do proprio drive. Geralmente, ele e 
como uma caixinha retangular de cor 
azul clara colocada na parte anterior. 
Se consideramos o lado do drive que 
contem o LED vermelho como o de 
cima, o controle esta, entao, localiza- 
do na parte antero-superior da placa 
de componentes. Este controle possui, 
no lado de fora, um pequeno parafuso. 
Girando-o, aumenta-se ou diminui-se 
a velocidade, dependendo para qual 
lado se gire. 

primeiro metodo de ajuste da velo- 
cidade e feito pelo olhometro. Este e 
um metodo muito simples, porem 
pouco acurado, pois depende do ponto 
de vista de quern ajusta. 

Se observarmos no eixo de rotacao 
do disco, veremos que existe um adesivo 
com o desenho de dois circulos concen- 



tricos formados por pequenas barras de 
cor preta e a indicacao da freqiiencia 
eletrica em uso, 50 ou 60 Hz. Quando a 
velocidade esta correta, se rodarmos o 
disco (atraves de um comando DIR, 
por exemplo) estando o adesivo ilumi- 
nado por uma luz fluorescente, veremos 
as barras do ci'rculo correspondente 
como se estivessem paradas. Ja, caso 
elas apresentem movimento, necessita- 
remos ajustar o disco, usando, entffo, 
o parafuso do controle de velocidade. 
Gire o parafuso para um lado e tome 
a verificar as barras. Caso o movimento 
das barras aumente, gire-o para o lado 
contrdrio e repita a operaca"o ate conse- 
guir obter o melhor resultado possivel. 

O segundo metodo consiste em se 
usar um programa que leia a velocidade 
do drive e mostre-a na tela. Nos Estados 
Unidos existem varios, porem sua im- 
portaca"o e diffcil e o preco elevado. 

O programa publicado por Mark 
Goodwin funciona perfeitamente no 
CP-500 e no Modelo 4 e foi testado por 
mim. Porem, os possuidores de modelos 
compati'veis com o Modelo 1 ficaram 
a ver navios. Restava, entffo, a esperanca 
de vermos publicado artigo semelhante 
para o Modelo I ou tentarmos modificar 

existente. Escolhemos a segunda 
alternativa e achamos o trabalho muito 
proveitoso para o aprendizado da lin- 
guagem Assembler. 

Passaremos a seguir a mostrar os pon- 
tos de divergencia entre os Modelos III e 

1 e o que foi feito para soluciond-los. 
Para facilitar, chamaremos de CP-500 
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os compati'veis com o Modelo III e de 
DGT os compati'veis com o Modelo I. 

1 - O controle dos drives no CP-500 
e feito por portas enquanto no DGT e 
por enderecos (posicoes de memoria). 
Tivemos, entSo, que trocar todas as 
ocorrencias das instrucOes OUT e IN 
por LD e todos os valores das portas 
pelos enderecos correspondentes, se- 
guindo a tabela abaixo: 



PORTA 


ENDERECO 


F0H 


37ECH 


F1H 


37EDH 


F2H 


37EEH 


F3H 


37EFH 


F4H 


37E0H 



2- Nos enderecos 53FEH a 5401 H 
encontramos a tabela de mimeros dos 
drives. No CP-500, usamos 81, 82, 84 e 
88 para os drives 0, 1, 2 e 3, respecti- 
vamente. No DGT, os valores sao 01, 
02, 04 e 08. 

3-0 ponteiro que indica a veloci- 
dade e representado no CP-500 por um 
foguete que corresponde ao carater 
255 (FFH). Como este si'mbolo nao 
existe no DGT, o substitui'mos pelo ca- 
rater 91 (5BH), que e a seta para cima. 
Este valor encontra-se no endereco 
5324H. 

4— Nos enderecos abaixo relaciona- 
dos, encontramos uma chamada a uma 
rotina somente existente na ROM do 
CP-500 (021BH) e que obviamente nao 
funciona no DGT. Para solucionar este 
problema, escrevemos uma pequena ro- 
tina em Assembler que, apesar de ser 
menor que a existente em 021BH, faz 
o mesmo efeito. A rotina foi colocada 
nos enderecos 5754H a 5760H, e as 
chamadas existentes para a rotina da 
ROM foram desviadas para 5754H. 

Os enderecos onde encontramos as 
chamadas para a ROM sa"o: 521 EH; 
522AH; 5240H; 5289H;52EFH;5300H; 
5350H. 

A rotina em Assembler e a seguinte: 

100 MOSTRA LD A, (HL) 

110 INC HL 

120 CP 03H 

130 RET Z 

140 CALL 0033H 

150 CP 0DH 

160 RET Z 

170 JR MOSTRA 

5- Do endereco 5402H ate 547 1H 
encontramos uma tabela utilizada para 
calculo da posicSo do ponteiro na escala 
de velocidades. Para que possamosenten- 
de-la melhor, vamos dividi-la em grupos 
com tres bytes cada. Se observarem, 
vera"o que o terceiro byte de cada grupo 
e subseqiiente ao anterior, iniciando 
com 0CH e indo ate 30H. Este byte dar^ 
a distancia a partir da posicao numero 
576 da tela (ou 15936), na qual sera 

MICRO SISTEMAS, agosto/85 



colocado o ponteiro. Para calcular 
qual serd o valor utilizado, o programa 
calcula a velocidade de rotacao do dis- 
co, lendo o INDEX HOLE (aquele bu- 
raquinho menor que tern no disco) e 
coloca este valor no par HL. Entao, 
ele pega o valor dos dois primeiros bytes 
de cada grupo da tabela, coloca-os no 
par DE e os compara byte a byte, ou 
seja, H com D e L com E. Se forem 
iguais, o programa toma o valor do ter- 
ceiro byte e o coloca em BC, que sera 
somado a posicao 15936, encontrando 
o local exato onde posicionar o pontei- 
ro. 

A grande diferenca entre o CP-500 
e o DGT esta no segundo byte de cada 
grupo e ocorre para diferenga de clock 
existente entre os dois micros (2,0 no 
CP-500 e 2,5 no DGT). 

Para a conversao usamos a tabela 
abaixo: 



CP-500 


DGT 


2EH 


35H 


2DH 


34H 


2CH 


33H 


2BH 


32H 



Lembre-se que esta alteraca"o so e 
feita no segundo byte de cada grupo de 
tres da tabela de velocidade. 

Na listagem encontramos o programa 
em hexadecimal que ja e a listagem do 
programa modificado e pronto para ro- 
dar no DGT. Use um monitor (DEBUG, 
MON5, ZBUG, etc.) para copia-lo. 
Depois use o comando DUMP para sal- 
va-lo no disco e experimente-o. Caso 
seus drives estejam com velocidade alte- 
rada, ajuste-os usando o parafuso do 
dispositivo de controle, mesmo com 
o programa rodando. E importante que 
se utilizem os mesmos enderecos lista- 
dos, pois o programa nao e relocavel. 

Para os possuidores do CP-500 que 
nao tiveram ou nao tern acesso a revis- 
ta 80 Micro, sugerimos que tentem 
inverter o processo de conversao e terao 
o programa original. Os macetes esta"o 
todos listados neste artigo. 

Talvez este programa na"o funcione 
perfeitamente no JR Sysdata ou no Dis- 
mac D8002, pois apesar de serem com- 
pati'veis com o DGT, o clock e diferen- 
te (1,78 MHz) e necessitaremos acertar 
a tabela de velocidade. 

Mais um lembrete: se mesmo apos 
ajustar a velocidade de seus drives voce 
ainda continuar obtendo erros, aconse- 
lhamo-o a procurar um representante 
tecnico que disponha de material adequa- 
do e possua a experiencia necessaria para 
resolver o problema. 

Esperamos que este artigo tenha lhe 
fornecido os subsi'dios necessarios para 
que, se algum dia, voce for atacado pela 
"maldicSo do drive louco", como eu fui, 
saiba como enfrenta-la. 



Afinal 

umaimpressora 

que oterece 

pre^o baixo, 

qualidade, 

cafezinho 

eum 
bompapo. 





V GARANTIA ; 

V / 



A Racimec apresenta a Ita. 
E faz qucstao de mostra-la a voce 
pessoalmente. 

De um pulo a Racimec. Com todo 
conforto, voce vai conversar com quern 
mais entendc de lta: os tecnicos da 
Racimec. Com dircito a ar refrigerado 
e cafezinho no ponto. 

Mas lembre-se: esta promoc/io 
c validapor pouco tempo. Incluindo 
o prego especial dc langamento. 

A Ita espcra por voce. 

Apareya. 

*Cabego para 300 mil/iocs de caracteres. 
lOOcps, l.ttposicoe.s, J J linhasporminiuo, 
caracteres semi-gr&ficos e cm portugues, 

saida serial para Ida. 




RACIMEC 

WCIONALIZACAO E MECANIZACAO 

Matriz e Fabrica - Estrada dos Bandeirantes. 
10.710 - Jacarepagua" - Tel.: (021) 342-8484 
CEP 22700 - Telex (021) 22618 RRME BR 
Regional Rio - R. Barata Ribeiro, 370/307 
Tel.: (021) 235-1561 - CEP 22040 
Telex (021) 35056 RRME BR 
Regional Sao Paulo - Av. Paulista, 1 .471 
conjs. 1.1 14 ate" 1.117- Tels. : (011) 284-2808 
283-0777 / 283-0969 / 285-2218 - CEP 0131 1 
Cx. Postal 55051 - Telex (011) 25920 RRME BR 



ACERTESEU DRIVE 



Drive/CMD 



Noie do prograna: DRIVE/CMD 
Inicio: 5200 Fi»: 576F Entry: 520C 



52»e 
52ie 
5220 
523© 
5240 
5250 
5260 
5270 
5280 
5290 
52A0 
52B0 
52C0 
52D0 
52E0 
52F0 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
53A0 
53B0 



E5 
00 
BF 

T> 
cc 

CD 
81 
53 

00 

39 
20 
53 
CD 
32 
09 
CD 
54 
00 
2B 
21 
5B 
3E 
15 
06 
54 
3A 
00 
78 
21 



D5 C5 

3C 36 
21 4D 

20 40 

39 53 
3E 06 
36 BF 
09 36 

53 36 

40 21 

21 EB 

54 53 
07 54 
CD 54 
5F 53 
53 21 
18 95 
00 B7 
40 3E 
18 DC 
16 04 
20 F0 
00 21 
32 E0 
09 54 
24 CD 
Bi 20 
00 00 



F5 CD 

BC 23 
3C 22 
21 A6 

36 BF 
07 3E 
23 3E 
BF 23 
8F 23 
DE 55 
55 CD 
CD 49 
6F 26 
53 CD 
30 IE 
51 3F 
21 11 
20 83 
09 36 
CD C9 
E5 06 
C9 5E 
0A 54 

37 Fi 
32 E0 
9E 53 
04 Fi 
3A 09 



33 00 Fi 
06 3E 3E 
20 40 21 
54 CD 60 
23 22 20 
8C CD 39 
04 36 BF 
3D 20 EE 

06 36 CD 
CD 60 57 
54 53 21 
00 D6 30 

00 29 29 
54 53 CD 
20 05 21 

22 20 40 
3F 22 20 
CD AF 53 
20 Ci 79 

01 C3 2D 

36 3E 20 

23 56 23 
09 7E 32 

07 30 08 

37 3E D0 
20 FB CD 
Ci 37 C9 
54 32 E0 



Ci Di 
8C CD 
7D 54 
57 21 
40 21 

53 36 
01 08 
36 8F 

39 53 
CD 3E 
22 56 
DA 33 
29 4D 

54 53 
8E 56 
21 D2 

40 2i 
3A 08 
32 08 
40 11 
CD 39 
ED 53 
09 54 
0i 00 



El C9 CD 
39 53 36 
CD 60 57 
Ci 3C 06 
CE 54 CD 
BC 23 06 
00 09 36 
23 06 07 
36 8F 21 
53 



Fi 3A 
37 3E 



2i E4 
CD 54 53 

53 FE 04 
44 09 09 01 
CD 3E 53 
18 03 21 
56 CD 60 
D2 56 CD 

54 B9 28 
54 21 40 
23 10 FC 
53 Ei 0i 
20 40 C3 
3A EC 37 
80 CD 60 
37 06 0A 
28 FB AF 
EC 37 CB 
D0 32 EC 



C9 01 21 
BC 23 36 
2i 8F 3C 
3E 3E 8C 
60 57 21 
36 CD 39 
BF 01 37 
3E 8C CD 
C2 3E 22 
55 CD 54 
21 59 56 
D2 33 53 
VI 56 



3A 07 54 
AF 56 CD 
57 CD 49 
60 57 CD 
Fi C5 4F 
3E 09 36 
C9 2) C? 
40 00 09 
60 57 4F 
F5 3A 09 
00 18 EA 
10 FE 0i 
C9 F5 0B 
4F C9 F3 
37 06 0A 



2649 
1283 
1357 
1357 
1499 
1350 

993 
1272 
1297 
1809 
1541 
1866 

910 
1624 
1285 
1469 
1338 
1744 

932 
1903 
1115 
1617 
1072 
1405 
1378 
2134 
2339 
1140 
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Rua Araguari n° 692 
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Belo Horizonte — MG ^^ 

Caixa Postal n? 1789 |— 

Fone: (031) 337-7946 
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53C0 
53D0 
53E0 
53F0 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
54A0 
54B0 
54C0 
54D0 
54E0 
54F0 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
55A0 
55B0 
55C0 
55D0 
55E0 
55F0 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
56A0 
56B0 
56C0 
56D0 
56E0 
56F0 
5700 
5710 
5720 
5730 
5740 
5750 
5760 



10 FE 
CA 53 
4F CA 
DD 56 
EA DD 
0C 8A 
2A 35 
34 17 
1C 55 
F5 33 
33 27 
2C 20 
65 6C 
73 6B 
30 0A 
28 63 
20 47 
20 2 
20 20 
2E 35 
20 20 
20 20 



3A EC 
23 3A 
DB 53 
00 DD 
4E FF 
35 0D 
12 16 
B6 34 
34 ID 
22 Ei 
8i 33 
33 2D 
20 49 
20 54 
08 BF 
29 20 
6F 6F 
20 20 20 



20 20 
0A 09 
39 20 
20 20 
20 20 
20 20 
20 36 
20 34 
BF BF 
3A 2E 
3A 2E 
3A 2E 
69 lb 
20 54 
2E 20 
20 54 
2E 03 
64 72 
20 20 
64 72 
20 6i 
20 30 
20 74 
3C 20 
4E 20 
3F 3C 
4F 54 
3E 03 
74 6F 
20 6D 
3F BF 
3F 20 
3F 8C 
3F 20 
3F B0 
3F 83 
7E 23 



20 20 
20 20 
20 20 
BF BF 
20 20 
30 20 
20 20 
20 20 
20 37 
20 35 
20 20 
3A 2E 
3A 2E 
3A 20 
65 03 
6F 20 
20 20 
6F 20 
4B 3F 
69 76 
20 20 
69 76 
6E 79 
20 74 
68 65 
44 52 
54 48 
20 44 
20 49 
50 72 
20 72 
65 6E 
B0 8C 
B0 BC 
8C 8F 
B0 BC 
8C 8C 
8C 8C 
FE 03 



37 CB 4F 
EC 37 CB 
FB DD 21 
23 DD 23 
06 00 C9 
77 35 0E 
35 13 03 
18 Ai 34 
42 34 IE 
33 23 CE 
28 6D 33 
0D 33 2E 

49 49 20 
69 6D 65 
BF 03 43 
31 39 38 

64 11 69 
20 20 20 
3A 2D 34 

50 4D 3A 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
30 20 20 
20 20 20 
20 38 20 
20 36 20 
20 20 20 
3A 2E 3A 
3A 2E 3A 
20 0A 08 
Ei 3E 4D 
n 69 6D 
20 20 20 

74 69 6D 
3i 20 2D 

65 20 31 
33 20 2D 
65 20 33 
20 6B 65 
6F 20 33 
20 70 72 
49 56 45 
45 20 53 
49 53 4B 
4E 20 54 
65 73 73 
65 74 75 

75 2E 03 
83 BF 03 
20 20 03 
8C 8C 03 
8C 83 03 
8C B0 03 
8C 83 03 
C8 CD 33 



C2 53 
C2 D2 
54 06 
BA 20 
04 00 
35 0F 
14 F0 
8F 34 

34 IF 
24 BB 
5A 33 
32 2F 
6C 6F 
20 30 
70 79 
20 64 
2E 0A 
20 20 

35 20 
0A 08 

>0 32 20 



3A EC 

53 23 
25 DD 
02 7D 
01 02 
50 35 
34 15 
1A 7C 
IB 34 
33 25 
2A 47 
E6 32 
70 70 
31 2E 
72 69 
79 20 
08 BF 



37 CB 4F 
3A EC 37 
5E 00 DD 
BB 30 02 
04 08 9D 
10 3D 35 
DC 34 16 
34 IB 68 
20 08 34 
A7 33 26 
33 2B 33 
30 4D 6F 
79 20 44 
30 30 2E 
67 68 74 
4D 6i 72 
BF 03 BF 



20 20 
20 20 
20 20 
20 20 
08 BF 
20 32 
20 30 
20 38 
20 20 
3A 2E 
3A 2E 
BF 0A 
6E 75 
20 64 
20 20 
20 64 
54 6F 
20 20 
54 6F 
03 88 
20 28 
20 74 
67 72 
49 53 

53 54 

54 54 
45 20 
61 6E 
6E 20 
3F B0 
3F 83 
3F 83 
3F B0 
3F 8F 
3F 20 
00 00 
FE 0D 



20 20 
52 5 
BF BF 
20 20 
33 20 
20 20 
20 20 
20 20 
20 20 
BF 20 
20 33 
20 31 
20 39 
20 20 
3A 2E 
3A 2E 
08 BF 
03 0B 
72 69 
20 20 
72 69 
20 74 
20 20 20 



4D 3A 2B 
20 20 20 
20 20 20 
20 20 20 



CA 2205 
CB 2025 
23 1800 
10 154i 
35 1224 
ii 849 
C9 1091 
34 1151 
21 676 
94 1613 
33 961 
64 1245 
69 1331 
30 1132 
20 i436 
6B 1105 
20 143i 
20 512 



34 

20 

3d 



>0 74 



3F 
65 



6F 20 
61 6D 
20 4E 
45 4D 
45 20 
44 52 
79 20 
74 6F 
8C 8C 
8C 8C 
20 BF 
8C 8C 
8C 8C 
8C 8C 
00 00 
C8 18 



33 20 20 
20 20 20 
20 20 20 
20 20 20 
20 20 20 
20 34 20 
20 32 20 
20 20 0A 
20 20 3A 
3A 2E 3A 
3A 2E 3A 
BF 03 44 
3F 30 20 
76 65 20 
20 32 20 
76 65 20 
69 6D 65 
20 20 20 
69 6D 65 
72 65 73 
63 65 70 
65 78 69 
2E 03 15 
4F 54 20 
20 3E 03 
49 53 20 
49 56 45 
6B 65 79 
20 74 68 
8C B0 03 
8C 83 03 
20 20 03 
8C B0 03 
8C 8C 03 
8C B3 03 
00 00 00 
F3 00 00 



20 
3fl 



806 
988 
530 
53i 
531 
784 
537 
20 528 
20 800 
35 607 
33 676 
08 601 
2E 870 
2E 832 
2E 832 

72 12ii 
2D 1221 
30 1340 
2D 557 
32 1342 
20 1035 

92i 
978 

73 1397 

74 1442 
74 1196 
3F 1278 
49 1036 
14 969 
4E i058 
20 1045 
20 1343 
65 1543 
42 1424 
02 1775 
82 1206 
42 1675 
02 i634 
82 1731 
00 748 
00 1608 



20 
20 



Oldimar Barbosa e Silva 6 Oficial M6dico da Aeronautica e Instrutor de 
Medicina Aeroespacial do Centro de InstrucSo Especializada da Aeronau- 
tica, no Campo dos Afonsos, RJ. Tern conhecimento das linguagens BA- 
SIC, Assembler Z-80, Pascal e FORTRAN e desenvolve software sob en- 
comenda. 



COMPUIADOR EXATG 
NO UIGUR CERTO. 



MC 4000 EXATO 
PRO: o microcom- 
putador da CCE 
com total compati- 
bilidade com o 
Apple II Plus. 
Teclado profissio- 
nal com 64 teclas, e 
mais 16 teclas de 
fungao programavel. 
Acentuagao com 
todos os caracteres 
da lingua portugue- 
sa, maiusculas, mi- 
nusculas. buffer 
de teclado, fast 
repeat e auto 
repeat. Safda 
para monitor 
ouTV 
comum. 
MC 4000 





SB5U 



faz de tudo: folha 
de paaamento, con- 
tabilidade, controle 
deestoquaOuseus 
programas de uso 
pessoal. 

E para comprar urn 
Exato, nada como o 
lugar certo: Clappy, 
onde voce tern aten- 
dimento especiali- 
zado ; assistencia 
tecnica perfeita 
easmelnorescondi- 
goes de prego e 
pagamento. 
Passe na Clappy. 
mais novo fun- 
cionariodasua 
empresa esta 
esperando 
por voce la. 



Exato Pro CPU Cr$ 3.710.000 
MC1000-Cr$ 1.099.000 



Unidades de Drive ■ Cr$ 2.048.000 
Monitor Profissional • Cr$ 1.610.000 



Temos para pronta entrega todas interfaces e expansoes. 



Clappy 



(pee) 



lado gente da maquina audio vfDEo informAtica 

Centro: Av. Rio Branco, 12 - loja e sobreloja - Tel.: (021) 253-3395 
Copacabana: Rua Pompeu Loureiro, 99 -Tels.: (021) 236-71 75 - 257-4398 

Visite nossas lojas ou solicite a visita de um representante. Entregamos em todo o Brasilpelo Reembolso Varig. 
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As linguagens aplicativas, PROLOG e OCCAM, sao 

abordadas neste artigo que tambem explica o que 

sao computadores paralelos, os equipamentos do futuro 



As linguagens 
do futuro 



Antonio Costa 



Na Idade M£dia a fabrica9ao de 
urn objeto era realizada por 
uma linica pessoa e suas partes 
eram construidas uma apos a 
outra, ja que o artesao na*o podia fazer 
duas coisas ao mesmo tempo. 

artesanato medieval funcionou 
bem enquanto apenas a nobreza tinha 
acesso aos bens de consumo e, portanto, 
na"o era necessario fabrica-los muito ra- 
pidamente. As mudangas sociais, porem, 
aumentaram as expectativas de todas as 
camadas sociais e os artesOes na"o conse- 
guiram mais fornecer produtos com a 
velocidade exigjda pelo mercado. 

Hoje em dia a construcao de um ob- 
jeto e dividida em tarefas e cada uma 
destas tarefas e entregue a uma unidade 
de fabricasao diferente. Como as uni- 
dades sao independentes, as tarefas po- 
dem ser realizadas simultaneamente. Na 
constru^c) de um carro, por exemplo, 
as fabricas de pneus, rodas, molas e car- 
buradores trabalham todas ao mesmo 
tempo. 

Os computadores de hoje funcionam 
como o artesanato da Idade M6dia: pos- 
suem uma unica unidade de processa- 
mento e executam, uma ap6s a outra, 
as diversas tarefas que formam a respos- 
ta de um problema. O computador do 
futuro serd parecido com um moderno 
complexo industrial e dividird o proble- 
ma em subtarefas, entregando cada uma 
delas a uma unidade de processamento 
diferente. Como as varias unidades de 
processamento trabalhara"o paralelamen- 
te na construca"o simultanea das partes 
usadas na montagem da soluca"o, costu- 



ma-se dizer que o computador do futu- 
ro sera uma maquina paralela. 

Da mesma forma que os mecanismos 
administrativos usados nas corporacoes 
medievais nao serviriam para organizar 
a fabrica?a"o de um carro em uma in- 
dustria moderna, as linguagens de hoje 
sera"o inuteis para programar um compu- 
tador paralelo. Estas linguagens so pos- 
suem comandos para descrever sequen- 
cias de opera?oes e, portanto, sa"o ina- 
dequadas para coordenar processos rea- 
lizados simultaneamente. Devido a isto, 
os cientistas de computacao desenvol- 
veram as chamadas linguagens do futu- 
ro, das quais falaremos neste artigo. 

OCCAM 

O fil6sofo Guilherme de Occam nao 
e apenas uma personagem secundaria do 
romance O Nome da Posa. Ele existiu 
mesmo e e seu o principio conhecido 
como navalha de Occam: "Entia non 
sunt multiplicanda praeter necessitatem". 
Tradu£ao: "Nao se deve criar coisas 
desnecessarias". 

C. A. Hoare, o descobridor do algo- 
ritmo conhecido como quick sort, de- 
senvolveu uma linguagem que possui 
apenas comandos estritamente necessa- 
rios para programar confortavelmente 
um computador paralelo. Esta lingua- 
gem, como era de se esperar, recebeu 
o nome de OCCAM. Vamos ver como se 
programa em OCCAM ? 

Imagine que eu possua as receitas e 
despesas diarias de uma firma e queira 
calcular o lucro em cada um dos cinco 



dias da semana. Em BASIC isto poderia 
ser feito com a seguinte subrotina: 




2000 


KEK CAICUIA LUCRO 


2010 


FCB 1 = TO *J 


202C 


LET LU (!) =SE (I)-LH (I) 


2050 


NEXT I 


20*40 


RETURN 



Observe que em BASIC os cinco lucros 
sa"o calculados um depois do outro. 
Examinemos agora um processo em 
OCCAM: 

IROC calclucrc= 
SEC 

EAR i=[0 FOR 4) 
VAE luc: 
VAE rec: 
VAR desp: 
SEQ 

receita£i) ? rec 
dGspesas(i) ? desp 
luc := rec-desp 
lucrc(i) ! luc 

O funcionamento deste processo 
pode ser descrito nos seguintes termos. 
Inicialmente, o comando PAR i = (0 
FOR 4) aloca cinco unidades de proces- 
samento, uma para cada dia da semana. 
Depois, para que uma unidade calcule 
o lucro, ela precisa conhecer a receita 
e a despesa do dia. Estas informa55es 
chegam pelos canais de comunicasSo 
receita e despesa e sa"o colocadas nas 
varidveis rec e luc. O comando lucro 
(i) ! luc serve para transmitir a variavel 
luc pelo canal de comunicaca"o lucro 

MICRO SISTEMAS, agosto/85 



ACETUS estd de casa nova. E para Todo o potencial e versatilidade da 

comemorarjangouuma mais completa rede local com 

rede nova: Rede Local Cetus uma opgdo a mais. 

para computadores de 1 6 bits. Nao e otimo? A nossa casa 

Uma simples placa que voce nova tambem. O enderego e 

coloca em qualquer micro esse ai embaixo. 

compativel com PC. Aparega. 

REDE LOCAL CETUS: TECNOLOGIA SOB MEDIDA PARA VOCE. 




Informttks SA 
Rua Pinheiro Guimaraes, 43. Botafogo. Tel.: (021) 286-7575 
22281 Rio de Janeiro, RJ 

Representantes: Sao Paulo: Enter; tel. (011) 533-9722- Green: (011) 287-1968 

Spress: tels. (011)287-7862/287-1918 Franca: Especo: tel. (016) 723-5000. 

Brasilia: New Computadores: tel. (061) 274-3977: 274-0645. Goiania: Rede Sistemas: tel. 

(062) 224-1759. Natal: Sigma: tel. (084) 221-3121. Juiz de Fora: Serta:tel. (032) 212-9075. Porto Alegre: 

Som Informatica: tel. (0512) 26-4613: Belo Horizonte: Spress: tel. (031) 225-8988. 

Salvador :Supricomp: tel. (071) 245-5735. 



AS LINGUAGENS DO FUTURO 

(i) e, assim, colocd-la a disposi9So de 
outras unidades de processamento. 

Cada uma das unidades de processa- 
mento usadas em OCCAM 6 denomina- 
da transputador e esse produto ja co- 
me90u a ser comercializado pela com- 
panhia INMOS. Se voce quiser obter 
maiores informacoes sobre os transpu- 
tadores escreva para INMOS, P. 0. 
BOX 16000, Colorado Springs, CO 
80935. 

LINGUAGENS APLICATIVAS 

Em 1977 Johs Backus recebeu a 
maior honraria que um cientista de 
computa5a"o pode almejar: o premio 
Turing. O premio lhe foi concedido 
pela criacao do FORTRAN e das teorias 
que tornaram possivel o aparecimento 
de linguagens procedurais como Pascal, 
Ada e BASIC. Ao receber o premio, 
Backus pronunciou um discurso expon- 
do suas ideias sobre computacdo, mas 
nao pense que ele defendeu FORTRAN, 
Pascal e Ada em seu discurso, ao contrd- 
rio, ele chamou estas linguagens de 
gordas e fldcidas e recomendou a 
adocao do estilo aplicativo de progra- 
ma9ao. Seguindo a recomendacao de 
Backus, vamos examinar esse estilo. 

Os adeptos do estilo aplicativo 
tern por meta escrever programas claros 
e livres de erros. Para facilitar a locali- 
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PadoS 

sistemas de banco de dados 

CURSOS 
DISPONIUEIS 

• lntrodu$6o 6 Mkrocomputo$oo 

• DOS - PC "Sistemo Operational" 
m UNIX "Sistemo Operacional" 

• UNGURG€M C "Ling. Programed do" 

• dBflS€ II "Programagoo Basica" 

• dBRS€ II "Program. ftvon?ado" 

• d8RS€ III "Program. Basica" 

• LOTUS 1 -2-3 "Plan. C-letronka" 

' • Framework "Sistemo Integrodo" 

• Symphony "Sistemo Integrodo" 

• Wordstar "Processodor de Texto" 

* €m desenvolvimento 



MflT€filfllS DIDRTICOS: Publicacoe 

Tecnicas desenvolvidas em 

portugues. 

R€CURSOS DIDRTICOS: Conceitos 

e exemplos praticos, atraves de 

Micros e Telao de 72" 

CURSOS FCCHRDOS € RBCRTOS 

NOVO 6ND6R6QD 

Ruq Groelandia, 1.750 - Jordim €uropa 

C€P - 01434 - Sao Paulo - SP 

Telefones; 881-4599 - 881-4032 



zacdo e eliminacSo de erros, a melhor 
estrategia e limitar-lhes a mobilidade, 
evitando que perambulem de um ponto 
a outro do programa. Podemos conse- 
guir isso se nao usarmos recursos com- 
putacionais capazes de transportar erros. 
Estes recursos que dao carona aos erros 
e, portanto, nao devem ser usados sdo: 

• Varidveis — As variaveis sao os vei- 
culos que os erros tomam para escapar. 

• Atribuicoes como o LET. . . =, do 
BASIC; o : =, do Pascal; e o SETQ, do 
LISP - As atribuicQes sa"o as portas 
pelas quais o erro entra no veiculo. 

• FOR. . . NEXT, REPEAT. . . UNTIL, 
WHILE. . . DO, FOR. . . DO etc. - Es- 
tes comandos sao as estradas por onde 
trafegam os vei'culos pilotados por erros. 

• GOTO - Esta instrucSo e o desvio 
que pode tirar o erro da estrada princi- 
pal e tornar ainda mais dificil a sua lo- 
calizacdo. 

Mas serd possivel programar sem usar 
estes recursos? Por incrivel que pareca, 
a resposta e sim. Para demonstrar isto, 
vamos escrever um programa que, 
dadas as despesas e as receitas diarias 
de uma firma, calcule o lucro semanal. 
O programa fica assim em uma lingua- 
gem aplicativa: def luc =(insira + C 
(aplique -) C trans). 

Como voces podem ver, nao existem 
variaveis, atribuicoes ou lacos neste pro- 
grama. Mas como e que ele funciona? 
Suponhamos que o apliquemos ao con- 
junto de dados ((5, 6, 4, 8, 7), (2, 4, 1, 
2, 4)), onde (5, 6, 4, 8, 7) sa*o as receitas 
e (2, 4,1,2, 4) as despesas. Inicialmente 
"trans" cria os seguintes pares receita- 
despesa: ((5, 2), (6, 4), (4, 1), (8, 2), 
(7, 4)). Em seguida aplique "-" (aplica 
a funcao "-") aos pares formados por 
trans. A esta altura teremos: (3, 2, 3, 
4, 3). Finalmente insira "+" (colocard 
um "+") entre os elementos deste ulti- 
mo conjunto, produzindo o resultado 
14. 

Na Universidade da Carolina do Nor- 
te, Gyula Mago esta - tentando construir 
uma mdquina paralela capaz de executar 
eficientemente linguagens aplicativas. 

PROLOG 

PROLOG, a mais conhecida das cha- 
madas linguagens do futuro, provocou 
uma verdadeira revoluca"o na informdti- 
ca ao introduzir uma filosofia de progra- 
ma9ao inteiramente nova. Um programa 
em Pascal, BASIC ou C e uma receita 
de como proceder. Por esta razao, estas 
linguagens sao classificadas de procedu- 
rais. Um programa em PROLOG nao 
passa de uma descrica"o de fatos, objetos 
e situacOes. PROLOG e, em suma, uma 
linguagem descritiva. Como o programa- 
dor nao diz a PROLOG como proceder, 



ela precisa encontrar sozinha seu cami- 
nho ate a solucdo do problema. Isto faz 
com que ela tenha necessidade de logi- 
ca e de metodos de raciocinio automa- 
tico. A logica que PROLOG usa 6 uma 
versao do calculo de predicados inven- 
tado pelo filosofo Frege. 

Vejamos como e programar em uma 
linguagem descritiva. Suponhamos que 
voce queira escrever um programa para 
administrar o pessoal de uma firma. Se 
for escrito em PROLOG, este programa 
conterd sentencas como as mostradas 
abaixo. 

Funciondrio nao pode ser despedido se 

Funciondrio e mulher & funciondrio 
estd gravida. 

Funciondrio nao pode ser despedido se 
Funciondrio e sindicalista. 

Funciondrio recebe salario-famflia se 
Funciondrio tern filhos menores & 
Salario mmimo vale S & 
Salario-Famflia 6 0.05*S*Menores. 

Funciondrio nSo pode ser despedido se 
Funciondrio ocupa cargos eletivos. 

Observe que nosso programa descreve 
varios detalhes da legislacdo trabalhista. 
Em nenhum momento, porem, d'zemos 
ao computador como proceder para 
abrir arquivos, procurar informafSes e 
realizar calculos repetidos. A mdquina 
deve descobrir estas coisas contando 
apenas com a 16gica e o raciocinio 
automdtico de PROLOG. 

As pessoas ficam admiradas ao ver 
programas em PROLOG escritos por 
brasileiros com palavras em portugues. 
Como isto e possivel? Afmal PROLOG 
foi inventada por franceses e nao por 
brasileiros. Acontece que PROLOG pos- 
sui vdrias ferramentas que lhe permitem 
adotar diferentes gramdticas. Entre estas 
ferramentas esta"o a declaragdo de 
operadores e os analisadores sintdticos. 

Governo e indiistrias no Japa"o est5o 
unidos em um esfor?o de pesquisa e de- 
senvolvimento destinado a construir md- 
quinas paralelas capazes de executar 
programas em PROLOG. Estas mdqui- 
nas controlarSo robos que trabalhara"o 
no campo para aumentar a produtivida- 
de agrfcola e ajudardo pessoas idosas e 
deficientes nas tarefas do dia-a-dia. 

Mais informa?Ses sobre PROLOG, 
voce encontrard no numero 44 de MI- 
CRO SISTEMAS, no artigo "Inteligen- 
cia Artificial, quinta gera5d"o d caminho" 
de Antonio Costa e Andre Gurgel. 



Antonio Eduardo Costa Pereira 6 formado em 
Engenharia Eletrdnica pela Escola Polite'cnica 
da USP. Fez mestrado em CiSncia Espacial no 
Instituto de Pesquisas Espaciais em S. J. dos 
Campos e doutorado em Engenharia Ele'trica 
na Cornell University, de Nova lorque. Atual- 
mente 6 professor na USP. 



PECAS ORIGIN AIS 

NUNCA 
PREGAM PECAS 

No momento em que for necessaria a expansao de seu ap II ou T.l. Unitron ou ainda a 

reposigao de algum dos componentes, verifique cuidadosamente se as pecas sao originals. 

Fazendo isso voce ou sua empresa estarao fucrando mats, com uma serie de vantagens. 

A primeira delas esta na garantia que a febrica oferece para conjuntos formados com 

acessorios originais Unitron. Outra vantagem esta na alta qualidade de uma pega ou acessorio 

original; voce ou sua empresa contam com a assistincia t6cnica sempre presente nos 

momentos necessarios, alem disso a expansao do seu Unitron sera sempre assistida 

por tecnicos especializados. 
Cuide do seu patrimonio. A final pecas originais nunca pregam pecas. 




Dlt: 

Interface centroiacfora para 
at& duas unidades de disco 
fiexiveldeS 1/4'\ 



Graph + : 

Interface paratela para im- 
pressora com fun$ocs gra~fi* 
cas e comandos prdprios pa- 
ra as inypressoras nacionais. 



+ 16K, + 32K r 
+ 64K B + 1 28K: 

Expansoes de Memdna RAM 
com a possibilfcfade de simu- 
tacao de ' 'disk^drfve ' ' de alta 
veiocidade (pseudo-disco}. 



Z80: 

Modulo com mtcroprocessa- 
dorZ-80 adicional, permitindo 
uiilizac&ode Sisiema Opera- 
cionat CP/M, 



80 cotunas: 

Modulo para mudanca do pa- 
drao de video para 80 cofu- 
nas x 24 linhas. 



Outras expansoes Unitron: Interface para comunicaQdes t "RS"232C - Memoria Buffer adicional 

para impressora - unidades de disco "SLIM" de 5-1/4 ou 8, impressoras de 80 a 125 CPS, 

modulo de cores PAL-M ou modulador de RFpara conexao a TV, - interface GP-IB para controle 

de instrumentagao, - cartao com memorias EPROMpara insergSo de "programas residentes'l 



Ul llll \J9 I 

CAIXA POSTAL 14127- SAO PAULO ■ SP 
TELEX (011) 32003 UEIC BR 
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SOLUQOES PARA AGENCIAS PERIFERICAS • SATELITES 
• ON-LINE LOCAL • ON-LINE PLENO * CONCENTRADORAS 
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AUTOMACAO 
BANCARIA 



SISTEMA DE TERMINAIS RACIMEC 



A combinagao do hardware mais 
canfiavel e do software mais 
avangado, proporciona a melhor 
relacao custo/desempenho do 
mercado. 




Concentrator de ag&ncta I regional 



Microcomputador de mesa equipado 
com unidade de disco rfgido. E o 
coracao das agendas. A ele podem 
ser conectadas ate 6 estacoes de 
trabalho. Aceita ainda3 unidades de 
expansao (discos rigidos) 
mufliplicando e preservando a 
memoria da massa. Cada dtsco 
rigido pode conter e atualizar 
permanenlemente 30.000 contas. 
A disponibilidade de avancado 
software" de gerendamento 
(Sistema Interalivo Multiusuario, 
.Multiprogramacao, Mullitarefa - 
S1MMM") assegura excepdonais 
tempos de resposta as transacoes. 




Estacoes de trattalno/ monitoracao 

Microcomputadores autonomos, 
conectaveis ao concentrador da 
agenda. Urn a das estagoes de 
trabalho encarrega-se da supervisao 
da rede de terminals de caixa e de 
clientes, enquanto as demais sao 
utilizadas simultaneamente em 
tarefas administrativas: ger&ncia, 
abertura de contas, entrada de 
dados extra caixa, e comunicagoes 
com regioes conceritradoras ou com 
oCPD central. 




Terminal de diente 



Temninal-de-Ciiente - nada mais e 
que um lerminal-de-caixa desenhado 
e programado para ser operado 
diretamente pelo publico. Os ciientes 
podem opera-lo por tecfado ou por 
passagem de cartao magnetizado, 
E conectavef ao restante do sistema 
da agenda, podendo exibtr 
instrucoes, imprimir extratos e 
informacoes atualizadas sobre a 
siluacao da conta dos clientes, com 
privacidade. 

Impressora de agenda - em geral as 
impressoras estarao associadas a 
uma estarao de trabalho. em tarefas 
que requerem impressao de 
listagens, e mesmo o pr6prio "listao" 
da agencia. 



O Sistema TERRA foi desenhado de 
forma a permitir uma variedade de 
combinacoes denlro de uma rede de 
agendas: 

- modo "on-line pleno" 

- modo "on-line local" 

- modo "off-fine" com captura de 
dados 

- modo "off-line", "stand-alone" 
permitindo ampla "mrgracao" entre 
os varios ambfentes, atendendo as 
particularidades do Banco, nas 
capitais ou no interior. 
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RACIMEC 



HACrONALlZACAO E MECAIMIZACAO 

Matriz e Fabrica: Estrada dos 
Bandeiranles, 10.710 -Jacarepagua 
CEP 22700 -Tel.: (021) 342-8484 

Telex (021 ) 2261 8 RRME BR 

Fabrica Sao Paulo (Divisao Mecanica): 

Rua Ampere, 210 - Socorro 

Sto Amaro- CEP 04762 

Tel.: (01 1)523-0566 

Telex (01 1} 25920 RRME BR. 




Termtnais de caixa"on-Nne" ou "ott-line", com gravadar, bateria e pefifertcos. 





Ainda hoje, ha pessoas que consideram a programagao como uma 
simples imiao de linhas. Veja neste artigo como as tecnicas 
de desenvolvimento sao fundamentals a urn bom programador 



Programagao: 
um caso serio 



Mauricio Costa Reis, 



Programmer: arte ou ciencia': 1 
Segundo A lire! iio r program a9ao 
signillca "a elaboracso de um 
programa para um com put a- 
dor 1 ', Um programs compreende um 
conjunto de ordens a scrcm obedecidas 
pelo computador, levando-o a obier os 
rcsultados desejados. Programar, entSo, 
que segundo o proprio Aure'Ho e o alo 
de "claborar um programa", ncccssita 
de muita criatividade e at" se confundc 
com arte. Mas os programas tambem 
precisam ser cficientcs k sendo assim, 6 
necessario uso de tecnicas adequadas, 
tornando a programa^ilo uma verdadei- 
ra cifricia. Dcste modo, a programae,ao 
podc scr vista como uma combinafao 
dc arte c ciencia. 

A EVOLUCAO 

Os primciros com put adores vendidos 
comercialmcntc (o primeiro I'oi o 
UiNIVAC, em 1951) cram grandes e 
complexes, exigiam que scus progra- 
madores fossem profissionais altamentc 
especial izados e vivessem as voltas com 
problemas bem espectftcos do equipa- 
mento. Os recursos computaeioiiais, 
priiicipalmente as memorias, eram escas* 
sos devido ao alto custo dos cireuitos 
da tJpoca. As dificuldadcs eram tantas 
que faziain com que os programadores 
perdessem muito tempo com como 
fazer ao inv£s de o que fazer e, pot isto, 
os programas eram muito pouco sofisli- 
cados, 

£ bem verdade que os computadores 
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evolutram: os que inicialmentc eram 
construfdos com valvulas e reles eletro- 
mecanicos (computadores da primeira 
geraeao), foram dan do lugar aos mats 
mode rnos, construfdos com traitsistores. 
resistorcs, diodos, etc, (computadores 
da scguitda gcrac£o). Paralelo a este 
desenvolvimento, houve uma pcquena 
evolucao na programacSo. Analisando 
esta fase, podemos dizer que os progra- 
madores eram pessoas especial izadas c 
obrigadas a cntender muito do funcio- 
namento interno do computador (deea- 
da de 60). 

A evolucao eletronica e o surgimento 
de novos componenics, cad a vez meno- 
res e mais baratos, contribuiu para que 
os computadores feitos com eircuitos 
intcgrados (um unico cucuito - C\ ou 
CHIP - reunc as fiincSes de mil bares 
de ira restores e e* a base dos computa- 
dores da terceira geraeao) sejam igual* 
mente pequenos e baratos. Devido ao 
barateamento natural no pre$o dos 
componentcs, os computadores passa- 
ram a dispoi dc maiores e melhores re- 
cursos (maior velocidade de processa- 
meuto, maior capacidade de memdria, 
unidades de disco e fitas magm'licas 
pequenas e eficientes disquete c 
Winchester), permttindo aos programa- 
dorcs usar mclhor sua criatividade na 
claboracSo de programas para aplicacOes 
mais sofislicadas e complcxas. 

A inven^ao do microprocessador 
(quase que involuntariameute cm 1972. 
pe)a INTEL) e suaulilizac^o nos micro- 



i.nrrspuliidaf«. mudou ainda mais o pei- 
fit do programador, Os micros, devido 
ao baixo custo e pequeno tamanho r 
eameearara a invadir lares, escobs, 
fSbricas c escritorios, obrigaodo-uos 
a conviver com eles, lado a lado, Somos 
praticamente obrigados a nos comuuicar 
com eles, Isto e\ programa ■ los; dat 
a grande corrida aos cursos de progra- 
maciio para microcompui adores. Isto 
acaba na"o sendo uma tarefa das mais 
atduas, uma vez que os micros s5o de 
facil manuseio e opcra^a"o, permit indo 
que sejam programados sem maiores 
'.iificuldades. Mas naTo basta aprender 
uma linguagem de programa^ao e sair 
por at' programando (tern gente que 
pensa que basta juntar algumas linhas 
de programa e ele ja" esta' pronto!). 
& neces&a'rio um pouco mais: ractocmio 
logico {liigica de prograrnac^o) t aplica- 
cSo de algumas te'enicas de progratna- 
^ao, basics s para cfetivamente se obtcr 
o resultado desejado, e/ou outras mais 
avanc,adas, no sentido de obte-los de 
modo mais efictente e econontico. 

A apa rente facilidade de programar 
vcm lazendo crescer razoavelmenle o 
numero de novos programadores, que 
quase sempre elaboram some rite progra- 
mas simples e, quando se aventuram a 
desenvolver algo mais complcxo, se de- 
paiam com diftculdades das mais va- 
nadas: o programa acaba nifo furtcio- 
nando; funciona com erros; funciona 
corretamente apenas em alguns casos; 
demora demasiadamente para resolver 
um problcma aparcntcmente simples: 
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quase sempre e inteligivel, impossibili- 
tando qualquer modifica^So; rapida- 
mente se esquece seus objetivos e por 
isto 6 posto de lado; sua operaC/So e 
complicada; nao permite o manuseio 
de dados e informa^Qes variadas etc. 

Isto nos leva a questionar a necessi- 
dade de tecnicas adequadas em pro- 
grama?ao, com o objetivo de se melho- 
rar a qualidade dos programas e do pro- 
gramador, evitando-se, ou pelo menos 
reduzindo-se, os efeitos dos problemas 
mencionados. 

A eficiencia e economia devem ser 
sempre nossas metas ao programarmos, 
sejamos programadores profissionais ou 
nao, de micros ou mesmo dos grandes 
computadores (mainframes). 

gasto com programa9ao vem cres- 
cendo, se comparado ao custo total 
dos computadores. A figura 1 mostra 
esta relagao (percentual) ao longo dos 
anos, onde podemos perceber que ini- 
cialmente o computador propriamente 
dito tinha um custo muito alto, o que, 
com a evoluC/ao da eletronica, foi se 
reduzindo. No mesmo pen'odo na"o se 
percebeu o mesmo com o software, o 
que fez, entao, que ele assumisse uma 
parcela, cada vez maior, dos custos 
totais no desenvolvimento de um pro- 
grama. Esta tendencia deve ser modifi- 
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Figura 1 

cada, ou pelo menos atenuada, pela 
conscientizacao da necessidade de investi- 
mentos no desenvolvimento de softwares 
e ado9ao de tecnicas corretas em progra- 
magSo, devido as economias que certa- 
mente delas decorrerao. 

LINGUAGEM 
DE PROGRAMACAO 

Inicialmente poucos eram os recursos 
disponiveis aos programadores, obriga- 
dos a trabalhar em linguagem de ma'qui- 
na (linguagem de programa9a'o do m'- 
vel 0). Este tipo de programac^o consis- 
tia na combina9ao de 0's e l's (bits e 
bytes), de modo a formar o codigo 
compreensi'vel pela rmiquina. Cada com- 
putador possui uma linguagem de ma- 
quina propria, o que obriga o progra- 
mador a so conseguir trabalhar com um 
determinado tipo de equipamento. Com 
a evolu93o, surgiram as linguagens 
de montagem (linguagem de programa- 
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Linguagem 


Criagao 


Principal area de aplicacao 


FORTRAN 


1957 


computacao numerica 


ALGOL 


I960 


computagao numerica 


COBOL 


1960 


computagao comercial 


APL 


1960 


manipulagao de dados 


LISP 


1962 


computagao simbolica 


PL/ 1 


1964 


uso geral 


Pascal 


1971 


sistemas de programagao 


C 


1974 


sistemas de programagao 


Modula 


1977 


tempo real 


Ada 


1974 


uso geral 


BASIC 


1960 


uso geral 


RPG-II 




comercial 


PEARL 




tempo real 


PROLOG 




inteligencia artificial 


LOGO 




inteligencia artificial 


FORTH 




sistema de programagao 


MUMPS 




manipulagao de dados 


CORAL 


1966 


tempo real 



Figura 2 

9S0 do ni'vel 1 - Assembly Languages). 
Esta linguagem permitia que progra- 
mador trabalhasse com mnemdnicos, 
que sao convertidos diretamente para os 
codigos binarios de m^quina por progra- 
mas montadores (Assemblers). 

E natural que se desejasse programar 
sem pensar nas particularidades de cada 
computador e tambem que um mesmo 
programa conseguisse rodar em equipa- 
mentos diferentes. Com estes princi'pios 
surgiram as linguagens de programa9ao 
de alto ni'vel (ni'vel 2), que permitiam 
ao programador abstrair os conceitos 
implicitos do computador e, deste 
modo, usar melhor sua criatividade. A 
primeira linguagem a surgir foi o FOR- 
TRAN, em 1957. Na figura 2, pode-se 
ver um resumo das principais linguagens 
de programa9a"o. Uma referenda com- 
pleta sobre as linguagens pode ser en- 
contrada na materia "As linguagens 
de programa9ao", nesta edi9ao. 

Hoje ainda encontramos linguagens 
dirigidas para a solu9ao em areas especi'- 
ficas, as chamadas linguagens orientadas 
para problemas ou linguagens de uso es- 
pecial (ni'vel 3). Estas sao linguagens que 
geralmente se utilizam de conceitos mais 
modernos de programa9So, como intera- 
9ao com o programador. Um tipo inte- 
ressante de linguagem sao as chamadas 
linguagens graficas, que se utilizam des- 
tes tipos de recursos (desenhos, menus, 
tabelas etc.) na intera9a"o com o progra- 
mador n3o especializado, quase sempre 
um usuario. Podemos, ainda, encontrar 
programas que geram programas (veja 
MS n ? 35). 

Mas como o computador so entende 
linguagem de rndquina, estas linguagens 
precisam ser traduzidas, o que e feito 
por programas especiais chamados com- 
piladores e/ou interpretadores. Uma 



pergunta que taivez surja aqui: e possi'- 
vel programarmos diretamente em ingles 
ou portugues? Bem, as linguagens pelas 
quais nos comunicamos sao linguagens 
naturais, isto e, com regras gramaticais 
complexas e ambi'guas, sendo por isso 
quase impossivel se fazer um tradutor 
autom^tico para elas (nesse aspecto, pes- 
quisas relacionadas com inteligencia, arti- 
ficial esta"o sendo feitas, com o objetivo 
de determinar um procedimento automa"- 
tico que permita ao homem se comunicar 
com a miquina do modo mais natural 
possi'vel). Uma outra pergunta seria: por 
que tantas linguagens de programa93o 
diferentes? Sem se considerar a ambi9a"o 
•tecnoldgica dos centros de pesquisa, 
querendo sempre apresentar uma novi- 
dade em termos de linguagem, o verda- 
deiro fator determinante desta multi- 
plicidade de dreas de aplica93o dos 
computadores (comercial, cientifica, si- 
mula95o, tempo real etc.) s2o as dife- 
rentes formas atraves das quais os pro- 
blemas podem ser abordados. 

ESCOLHA DA LINGUAGEM 
DE PROGRAMACAO 

Em vista da grande quantidade de 
op9Ses de linguagens de programa9a'o, 
como escolher a mais conveniente? 
Para responder a esta pergunta tere- 
mos que ser praticos e analisar dois 
itens important tssimos: 1 - natureza 
do problema a resolver; 2 — disponibili- 
dade ou nao do tradutor para o compu- 
tador desejado (proprio ou n3o). Primei- 
ramente devemos ter em mente que o 
computador e uma ferramenta, isto 6, 
um meio utilizado para alcazar deter- 
minado objetivo, e na"o um fim em si 
mesmo. Assim sendo, antes de se pensar 
em seu uso, devemos ter total domi'nio e 
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conhecimento da aplica9a"o que deseja- 
mos implementar (antes de programar 
um joguinho, por exemplo, e aconselha- 
vel que se estipule todas as regras e exce- 
sses; o mesmo e valido para qualquer 
tipo de aplicasao). Ai, entao, o compu- 
tador sera usado de de modo adequado: 
auxiliar na rapida obtencao da solucao 
mais eficiente. Este tambem e o requisi- 
te para a escolha da linguagem, segundo 
o exposto no item 1 : conhecendo a 
aplicasao, podemos conhecer a lingua- 
gem mais adequada para a sua solucSo. 

Embora a elaborasao de um progra- 
ma consista numa versao simplificada, 
isto e, na determinasao de sequSncia 
de instru9<3es que levem a solu9ao dese- 
jada, o fato de se dispor de uma lingua- 
gem de programacao com estrutura ade- 
quada as formulasSes logicas propostas 
(algoritmo), fara com que o trabalho de 
programasao seja mais facil e seja ai'onde 
provavelmente obteremos resultados 
mais eficazes. item 1 , que deveria real- 
mente nortear a escolha da linguagem, 
acaba cedendo a vez & realidade do item 
2. Vejamos: ao escolhermos uma lingua- 
gem para o desenvolvimento de uma apli- 
ca9ao, segundo os aspectos tecnicos do 
item 1, poderemos concluir que a lin- 
guagem escolhida na"o esta disponi'vel 
(nSo existe, na"o foi fornecida etc.) no 
computador desejado. Seria, entao, 
necessario algum investimento (geral- 
mente a compra do compilador da lin- 
guagem), o que quase sempre esta fora 
de cogita9ao, por questoes econfimicas. 
Acaba acontecendo o indesejavel: a 
aplica9ao e desenvolvida numa lingua- 
gem disponi'vel e na~o na aconselhavel. 
Podemos, ainda, ter outra situa9ao, on- 
de a linguagem e determinada a priori, 
seja por so se dispor de programadores 
que conhe9am apenas determinada lin- 
guagem, seja pelo chefe intransigente 
que determina, sem qualquer criterio 
tecnico, a linguagem a ser utilizada. 
Esses problemas, apesar de indesejaveis, 
sao comuns ao nosso dia-a-dia e nao se- 
rao discutidos aqui. Atualmente as lin- 
guagens mais disseminadas e conhecidas, 
para uso em micros ou na"o, sao o 
BASIC, o COBOL, e o FORTRAN, e 
a maioria dos programas acaba sendo 
desenvolvida nelas. 

COMPILADORES 
E INTERPRET ADO RES 

Quando dizemos que uma linguagem 
esta disponi'vel para um computador, 
queremos dizer que existe nele um pro- 
grama tradutor daquela linguagem. Ha 
duas formas de executar esta tradu9ao: 
na primeira, o programa escrito na lin- 
guagem de programa9ao e todo tradu- 
zido para a linguagem de miquina, sen- 
do, entao, possi'vel a sua execu93o. A 
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Figura 3 







VANTAGEM 


DESVANTAGEM 






COMPILAgfiO 


Execucao mais rapida 


Necessita de muita memoria 




Permite estruturas de 
programagao complexas 
e otimizacao de codigo 


Demora na corregao de um 
erro apos sua identif icagao 




Programas nao modificaveis 
dinamicamente 


Varias etapas de tradugao 


INTERPRETACAO 


Necessita de pouca 
memoria 


Execucao lenta 


Facilidade de depura- 
cao 


Estruturas relativamente 
simples 


Permite estruturas di 
namicas de programagao 




Traducao em uma unica 
eta pa 











Figura 4 

este tipo de tradu9ao chamamos de 
compila9§o, e ao programa tradutor 
de compilador. A outra forma seria a 
tradu9ao de partes do programa de cada 
vez e a sua consequente execu9a"o. Pe- 
las suas caracten'sticas, este tipo de tra- 
du9ao e chamada de interpretasao e e 
feita por um interpretador. A figura 3 
mostra o funcionamento da compilasao 
e interpretasao. 

Temos, entao, que algumas lingua- 
gens sao compiladas e outras interpre- 
tadas, podendo existir, ainda, outras dos 
dois modos. Esta caracten'stica pode 
determinar uma boa performance no de- 
senvolvimento de um programa. A figu- 
ra 4 mostra a caracten'stica de cada 
tipo de tradusao. Quando possi'vel. 
uma boa pratica e o desenvolvimento 
de um programa usando um interpre- 
tador, devido ils facilidades no seu de- 
senvolvimento. Quando este estiver 
pronto e aprovado, deve-se usar o com- 



pilador da mesma linguagem, pela maior 
rapidez de processamento que isto acar- 
reta. 

Atualmente os programas tradutorcs 
quase sempre sao uma mesclagem de 
compilador e interpretador, numa tenta- 
tiva de se aproveitar as vantagens e des- 
prezar as desvantagens de cada metodo. 

ALGORITMOS E FLUXOGRAMAS 

Uma ctapa importante no desenvolvi- 
mento de um programa e a sua abstra- 
9S0, isto e, se pensar livremente na solu- 
930 de um problema para, entao, fa- 
zer o programa. 

Chama-se de procedimento a uma se- 
qiiencia de passos que conduzem a 
solu9ao de um problema, denominando- 
se algoritmo, no caso de ser um procedi- 
mento finito (veja no artigo Uma Ques- 
tao de Logica, em MS n ? 24). Um exem- 




ALGORiTMo 





DADOS DE 
ENTRADA 



C> PROGRAMA =0 JJJJJ 



DADOS DE 




SOLUQAO 




O SOFTWARE PARA O SEU MICRO 



F = pode ser gravado em f ita K7 

J = uso obrigatorio de joystick 

48 = requer 48 K de RAM 

64 = requer 64 K de RAM 

JOGOS PARA APPLE II 

- Cr$ 50.000 - 

Sabotage (F) — evite os paraquedistas 
Apple Cider Spider — ajude a aranha 
Gama Goblins (F/J) — jogo tipo Invasores 
Taxman (F) — labirinto tipo Pac Man 
Taxman II — nova versao 
Night Mission — jogo tipo Pmball 
Sargon — jogo de xadrez 
Draw Poker (F) — jogo de poker 
Blackjack (F) - jogo de 21 (cartas) 
Checkers (F) — jogo de damas 
Fast Gammon (F) — jogo de gamao 
Othello (F) — jogo de tabuleiro 
Frogger (F) — salve sapo 
Donkey Kong — Mario contra gorila 
Lode Runner — pegue os tesouros 
Talon — voce e um cavaleiro voador 
Olympic Decatlon — jogos olimpicos 
Space Raiders (F) — defenda a galaxia 
Norad (F) — defenda-se dos Russos 
Crossfire (F) - fogo cruzado, um perigo! 
Bugg Attack (F) — jogo tipo Centopeias 
Gorgon (F) - jogo tipo Detender 
The Eliminator (F) - combate espacial 
Night Crawler (F) — enfrente as Centopeias 
Space Eggs (F/J) — cacar ovos espaciais 
Autobahn (F) - corrida de carros 
Alien Typhoon (F) — jogo tipo invasores 
The Asteroid Field (F) - tipo Asteroides 
Buzzard Bait (F) — guerra contra urubus 
Ceiling Zero (F/J) — ataque espacial 
Hard Hat Mack — perigos na construgao 
Head On (F) — jogo de corrida 
Choplifter (F/J) — resgate com hehcoptero 
Sea Dragon — pilote o submarmo 
Spy's Demise (F) - jogo de agente secreto 
Star Blazer (F) — combate aereo 
Viper (F) — alimente a cobra 
Wave Navy — combate no mar com avibes 
Cavern Creatures — penetre na caverna 
Moon Patrol (F) — patrulha lunar 
Ms. Pac Man (F) — a namorada do Pac Man 
Mario Bros (F) — Mario contra o gorila 
Buck Rogers — pilote uma nave em "Doom'' 
Pitfall II — aventuras nas cavernas perdidas 
Quest for Tires (J) • agao na prehistona 
Castle Wolfenstein — engane os nazistas 
Beyond Castle Wolfenstein — mate Hitler 
Aztec — decifre a piramide azteca 
Stellar 7 — combate no espago em 3D 
Ribbit (F) - jogo tipo Frogger 
Super Buny — combata as pragas 
Microbe — aventura no corpo humano 
Serpentine — combate entre serpentes 
Allen Ambush (F/J) — jogo tipo Arcade 
Out Post (F) — defenda a estagao espacial 
Defender (F/J) - defender original 
Dog Fight II (F) — confronto de jatos 
Star Trek — Jornada nas Eslrelas 
Space War — guerra espacial 
Guardian — defenda-se em um labirinto 
Jellyfish — pilote um submarino 
Swashbuckler (F) — duelo de espadachins 
Swashbuckler II - nova versao 
Temple Apsal — aventura no templo 
Flight Simulator (F) — simulador de voo 

- CrS 100.000 - 

Karateka — perfeita simulagao de karate. Enfrente vanos 
adversanos e hberte a princesa do Shogun. 
Conan — localize e destrua Volta em varias fases e com 
diferentes obstaculos. Aventura grafica baseada no dime 
(2 faces de disco). 



Gunball — opere uma incnvel fabnea de chicletes. 
Ghostbusters (J) — monte uma empresa de caga aos 
fantasmas e comece sua aventura. Baseado no f ilme (toca 
tema musical). 

Summer Games (64) - 8 modalidades completas de 
atletismo dos emocionantes logos olimpicos de verao. Escolha 

pais e ouga seu hmo sempre que subir ao podium (2 faces 
de disco). 

SPY vs SPY — divertida agao de espiao contra espiao. baseada 

nos famosos personagens da revista MAD. 

Droll — fantastica perseguigao com varias fases. Graficos 

incriveis e agao rapida. 

Sky Fox (J/64) — super simulador de voo ccm incriveis 

situagbes de combate em vanos niveis. Graficos sofisticados 

Dark Crystal — aventura grafica baseada no filme "0 Cristal 

Encantado". Ache o fragmento do cristal. passando por 

diferentes cenarios e enfrentando os obstaculos de um mundo 

onde reinam a magia e o pengo (4 faces de disco). 

Flight Simulator II - pilote um Piper 181 totalmente equipado. 

atraves de realisticos cenarios, de Nova York a Los Angeles. 

Quando voce estiver preparado enfrente um combate real da 

1 f Guerra Mundial. 

Mask of the Sun — aventura grafica. No Mexico, voce deve 
achar os tesouros perdidos de uma antiga civilizagao. 
Empolgante desafio (2 faces de disco). 
Kabul Spy — thriler de espionagem tendo o Afeganistao terra 
cenario. Envolva-se nesta trama e divirta-se (2 faces de disco). 



UTILITARIOS/APLICATIVOS PARA APPLE II 

- CrS 150.000 - 
Visicalc - planilha de calculos 
Visiplot/Visitrend - gerador de graficos 
Visidex — organizador de atividades 
Vislfile — gerador de banco de dados 
Visichedule — analise fmanceira PERT/CPM 
Visiterm — utilitano de comunicagao 
Apple LOGO — compilador 

Apple FORTRAN - compilador 
GraFORTH - compilador 
Locksmith 5.0/F - utilitano de copia 
Nibbles Away II/C3 - utilitano de copia 
The Graphics Magicians — animador grafico 
The Graphics Solution — editor de graficos 
Print Shop — gerador de impressos graficos 

- CrS 200.000 - 

Apple PASCAL - compilador 
Multiplan — planilha de calculo 7" geragao 
Take 1 • super animador grafico 
TASC ■ compilador BASIC 

JOGOS PARA CP-300/CP-500 

- CrS 50.000 - 

Flight Simulator (F) • simulador de voo 

Olympic Decatlon (F) ■ jogos olimpicos 

Hoppy (F) ■ Salve o sapo 

Armored Patrol (F) - patrulha de tanques 

Asteroid (F) - destrua os asteroides 

Lunar Lander (F) • pouse nas crateras da Lua 

Alien Defense (F) - protejase dos invasores 

Supernova (F) • agao no espago 

Meteor Mission (F) - cagada espacial 

Outhouse (F) • proteja o seu banheiro 

Robot Attack (F) - destrua os robos 

Sea Dragon (F) - pilote um submarino 

Missile Atack (F) - defenda sua cidade 

The Eliminator (F) • enfrente o gorila 

Duel Droid (F) - lute espadas com o robo 

Tunel Vision (F) • escape do labirinto 3D 

Patrol (F) • elimine a frota mimiga 

Scarfman (F) - jogo tipo Pac Man 

Cavern (F) • escape vivo da caverna 

Penetrator (F) - aprofunde-se nas cavernas 

Stelar Scort (F) - defenda-se da frota mimiga 

Assault (F) - fuja dos ageis inimigos 

Demon Seed (F) • acabe com os enormes passaros 



Cosmic Fighter (F) • jogo tipo Invasores 

Panik (F) • escape dos robos 

Pinball (F) - tipo fliperama 

Crazy Painter (F) - pinte a tela, se puder! 

Chicken (F) - ajude a galinha 

Galaxy Invasion (F) - tipo Invasores 

Sargon (F) - jogo de xadrez 

Asilo (F) • aventura grafica 

Zork • super aventura 

Spook House • aventura grafica 

Toxic Dumpsite ■ aventura grafica 

Adventur • 4 aventuras diferentes 

FucFuc - programa pornografico 



UTILITARIOS/APLICATIVOS PARA 

CP-300/CP-500 

- CrS 150.000 - 

Creator — gerador de programas BASIC 
Visicalc — planilha de calculos 
Bascom — compilador basic 
Scripsit — processador de textos 
Multcopy - copiador de programas 



-CrS 200.000- 

Clone III - copiador rapido de disco 
ACCEL 3/4 — compilador basic (fita/disco) 



- 250.000 - 

NEWD0S/80 2.0 - sistema operacional 
D0SPLUS 3.5 — sistema operacional 
LDOS 5.1.3 — sistema operacional 
Arranger II — arquivo de diretorios 
Profile 111+ - gerador de banco de dados 
SuperSCRIPSIT - processador de textos 
ZEUS - super editor assembler 
DIsnDATA - super disassembler 

- CrS 300.000 - 

Producer — gerador de programas 
Super Utility 3.2 - super utilitano 



JOGOS PARA SPECTRUM/TK 90 X 
- 40.000 - 

Fighter Pilot (48) - pilote um F-15 Eagle 
Flight Simulation (48) - simulador de voo 
Hungry Horace • divertido PacMan 
Horace & Spiders enfrente as aranhas 
Meteors • Destrua os meteoros e naves 
Combate Zone (48) batalhas de tanques em 3D 
Terror Daktil 4D (48) • agao na terra perdida 
Astro Blaster - defenda o imperio do immigo 
Trader (48) • comercio e agao no espago 
Styx (48) • ande no labirinto e mate a bruxa 
Tutankhamun (48) - explore a tumba do Farao 
Missile ■ destrua os misseis. 3D 
Arcadia • sobreviva na travessia fatal 
Space Intruder • jogo tipo Invaders 
Tornado (48) - pilote o aviao. Cenario em 3D 
Planetoids • aventura espacial com combate 
AD Astra (48) - salve os soldados. Agao em 3D 
Galaxy Attack - varias fases no espago 
Chess • jogo de xadrez 

Android 2 (48) • mate os robos. Cenario em 3D 
Escape ■ saia do labirinto sem ser morto 
Lab 3D - sera que voce sai dessa? 
Ground Attack • jogo tipo Penetrator 
VU 3D • utihtario grafico. Telas em 3D 
VU Calc - planilha eletronica de calculos 
VU File - arquivo de dados para uso geral 
Specforth • compilador Forth 



» 



Figura 5 



Desejo receber os seguintes programas pelos quais estou enviando um cheque nominal a ATI Editora Ltda., Av. Pres. Wilson, 165 - Grupo 1210 - Centro, CEP 20.030 
Rio de Janeiro - RJ, Despesas de correio ja incluidas. ( ) Desejo receber um catalogo GRATIS. 

Computador: ( ) CP-300/CP-500 ( ) APPLE II ( )SPECTRUM/TK90X. ITEM(s) PREQOCrS 

Com: K RAM. Desejo os programas em: ( )FITA( ) DISKETTE. 

NOME: 

END.: 

UF: 



CIDADE: 



CEP.:. 



.TEL:. 



TOTAL CrS 
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Softllne - Av, Gra?a Aranha, 145, Slj, 01 - Centro • Rio de Janeiro - RJ - CEP 20.030 - Tel.: (021) 262-6968 



274-8845 

Agora em PABX 



Fita Impressora National ou importada 

Ugue 274-8845\ 

Formula'rio Continue 1, 2ou 3 vias 

Ugue 274-8845\ 

Aquele Arqulvo para diskettes 5. 1/4" ou 8" 
Ugue 274-8845 \ 

Pastas para Ustagens 80 o 132 colunas 

Ugue 2744845\ 

Etiquetas Adesivas em Formula'rio Continual 
Ugue 274-88451 

Diskettes 5. 1/4" ou 8" (5 anos de garantia)\ 
Ugue 274-8845] 

Reebobinagem em Nylon e Polietileno 

Ugue 274S845\ 



N6s temos tudo isso, e muito mais... 

* Pronta Entrega 

* Qualquer Quantidade 

' Garantia de Qualidade 



/uprimento 

1 MATERIAIS PARA COMPUTADORES 

R. VISCONDE DE PIRAJA. 550/202 — 
274-8845 — I PAN EM A — RIO 




SEJA IMOSSO 
COLABORADOR! 

Caso nosso leitor tenha 
desenvolvido qualquer tipo de 
programa (jogos, utilitarios, 
aplicativos e etc.), nos queremos 
publica-lo. 

Envie seu programa para MICRO 
SISTEMAS, acompanhado de um 
breve curriculo, endereco e 
telefone para contatos. Nao se 
esqueca, cada programa deve ser 
acompanhado de copias em 
disco ou fita. 

Se ele for editado por MICRO 
SISTEMAS, o colaborador 
recebera uma remuneracao; caso 
contrario devolveremos os 
originais. 



/Micro 



RIO-Av. Presiclente Wilson, 165/grupo1210, 
Centra, CEP: 20030, Rio de Janeiro, RJ 
SAO PAULO - Rua Oliveira Dias, 153, Jardim 
Paulista, CEP: 01433, Sao Paulo, SP 
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PROGRAMAgAO: UM CASO SE"RIO 



atribuigao 



leitura 



exibigao 



i 



T 




armazenamento 



impressao 



repetigao 




conectores 




desvio 



Figura 6 

plo comum de algoritmo e a receita de 
um bolo; acompanhando as instrucOes 
da receita, uma cozinheira pode facil- 
mente fazer um bolo. 

O algoritmo e introduzido no compu- 
tador atraves de um programa, ou seja, 
um programa e um algoritmo escrito 
em linguagem de programa5a~o (enquan- 
to a receita e um algoritmo escrito em 
portugues!). Portanto, um programa tra- 
duz um fluxo logico de execucao a ser 
seguido pelo proprio computador, atra- 
ves de suas instrucoes. Sendo assim, para 
algumas condi^oes iniciais ou dados de 
entrada (ingredientes), acarretara"o da- 
dos de sai'da, condicoes finais ou rcsul- 
tados (o bolo). A figura 5 mostra as 
concepcoes e uso de algoritmos. 

Quase sempre encontramos mais de 
um algoritmo para solucionar um pro- 
blema. A escolha de algoritmos eficien- 
tes ira influir, de modo decisivo, na efi- 
ciencia geral do programa. O esforco 
dispendido na elaboragao de um bom 
algoritmo e recompensado por uma re- 
ducao no tempo de desenvolvimento, 
testes do programa etc. Pode-se optar 
por utilizar algoritmos ja prontos, desde 
que se encontre um que se adapte as 
condicoes do problema (por exemplo, 
algoritmos de ordenacSo, inversao de 
matriz, calculo de prestacao etc.), sen- 
do, as vezes, necessarias algumas modifi- 
cacoes. 

No desenvolvimento do algoritmo 
(acao), a escolha adequada da estrutura 
de dados (informa9ao) tern influencia 



decisiva . 

Na medida do possi'vel, o algoritmo 
deve ser independente da linguagem 
de programacao, muito embora acabe 
sendo influenciado pela escolha de uma 
delas. 

Sao comprovadamente reconhecidas 
as vantagens de ilustra90es, dos mais 
variados tipos, sobre o texto em geral 
("Um desenho vale por mil palavras"). 
Fluxograma e a representa^ao de um 
algoritmo atraves de sirnbolos especiais, 
sendo particularmente util para visuali- 
za9§o do processo envolvido e tambem 
importante ferramenta de documenta- 
9ao de programas. Veja na figura 6 al- 
guns si'mbolos mais comuns utilizados 
na confec9ao de fluxogramas. 

ESTRUTURA DA INFORMACAO 

Em programa9ao, o primeiro concei- 
to assimilado e o de a9ao (por exemplo, 
o computador trabalha para obter um 
resultado com rapidez). E e esta a ima- 
ge m que fica. 

A organiza9ao adequada da informa- 
9ao tern grande influencia na a9ao. Um 
exemplo ti'pico e o dicionario, onde as 
palavras estao distribui'das em ordem al- 
fabetica, sendo bem mais simples o ato 
de local izar uma palavra qualquer. 
Agora tente imaginar um dicionario 
com suas palavras distribui'das aleato- 
riamente! E logico que houve um dis- 
pendio de trabalho para organiza-las, 
mas valeu a pena. 

MICRO SISTEMAS, agosto/85 




Liberdade de Escolha 




EM- 12 75 

M ultimodem - O modem 
prof issional tambem 
para micro. 

A ELEBRA esta langando o MULTIMODEM 
- o modem que vale por tres. Um equipamento profissional que 
voce tambem podera usar com o seu micro. 

Ele opera em 300 bps, 1200 bps e 1200 bps com canal se- 
cundario de 75 bps, para que voce tenha a liberdade de in- 
terligar-se a qualquer rede de comunicagao de dados ou 

qualquer Tele-servigo. 




s 
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o 
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• Resposta automatica (opcional) 

• Opera em linhas comutadas ou de- 
dicadas a 2 ou 4 fios 

• Versao mesa ou bastidor 

• Desconexao automatica ao termi- 
no da transmissao 

• Loops (opcional) 

• Padrao de teste 

• Chave voz/dados 

• Segue as recomendacoes CCITT e 
TELEBRAS. 



EM-1275 MULTIMODEM. Aaltatecnologiaemmodem, 
multiplicada por tres. Para voce ter liberdade total de escolher 
a melhor maneira de se comunicar. 
Modems ELEBRA. Produtos com passado, presente e muito futuro. 



elebra telecon 




Empresa controlada por Docas S.A. 



Vendas: Av. Eng."Luiz Carlos Berrini, 1461, 

Sao Paulo - SP CEP 04571 - Fone (011) 533-9977 

Telex (011) 25131 

Filial Rio: Av. Rio Branco, 50 - 1 1 ." andar, CEP 20090 

Fones (021 ) 233-0223/233-2220/233-3977. 



□ Solicitooenviodefolheto 

n Solicito visitsi de um Reprcsentante 



A ELEBRA S.A. -AV. RIO BRANCO, 50 -11.° AND. -CEP 20090- RIO DE JANEIRO -RJ 

Nome 

Knipresn Cargo 

Kiulcre(;o 

Telefone Kamal Cidade Kstado. 
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PROGRAMAgAO: UM CASO S^RIO 



ESTRUTURAS 
HOMOGENEAS 


Operacoes possiveis. 


VETORES e 
MATRIZES 


Acesso; alteracao. 


TAB EL AS 


Pesquisa alteracao, inclusao, exclusao. 


LISTAS 

LINEARES, 

ENCADEADAS , 

DUPLAMENTE 

ENCADEADAS, 

CIRCULAR 


Obter/alterar ; inserir/remover , concatenar, 
localizar, determinar tamanho. 


FILAS 


(estrutura FIFO-First In First Out) inserir 
no FIM, retirar do INICI0. 


PILHAS 


(estrutura FILO-First In Last Out) inserir 
no TOPO, retirar do TOPO 


GRAPOS 


Visitar no, retirar no, calcular distancia 
entre nos. 


Arvore 


Calcular tamanho. 


ESTRUTURA 
HETEROGENEA 




Registro ( f ormado 
de elementos de 
tipos diferentes) 


Acesso, alteracao 
(os registros poderao 
formar estruturas homogeneas. 
Ex.: pilha de registro)- 



Figiira 7 

Em programagao, as informa9oes sao 
armazenadas sob a forma de bytes. No 
entanto, as linguagens de programaga"o 
permitem se abstrair o modo como a 
informa^ao e armazenada e que se veja 
estes bytes como caracteres, numeros 
inteiros, numeros reais, etc., que podem 
ser agrupados para formar estruturas de 
dados. A figura 7 lista as estruturas de 
dados mais conhecidas, sendo que al- 
gumas linguagens de programac.ao per- 
mitem implements -las mais facilmente 
que outras, como e o caso do Pascal. 

As formas, como as informac^es, 
sao armazenadas em disco, disquetes, 
etc. e tambem merecem aten?ao, pois 
determinarSo uma boa performance em 
programas que trabalham em disco. 
Assim, e importante o conhecimento 
das organiza?oes de arquivo em disco, 
como se ve na figura 8. A correta defini- 
950 de arquivos necessita de conheci- 
mentos a ni'vel de analista de sistemas, 
muito embora possa ser feita por um 
bom programador. 

QU ALIDADE DO PROG RAMA 

Do mesmo modo como pensamos em 
qualidade de produtos industrials, po- 
demos pensar em qualidade de progra- 
ma. Com o crescimento da complexida- 
de do uso do computador, torna-se cada 
vez mais dificil se assegurar ni'veis mi'ni- 
mos de qualidade, apesar de existirem 
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ORGANIZAgAO 


ACESSO 


seqOencial 


seqOencial 


RELATIVO 


seqOencial, DINAMICO 


INDEXADO 


seqOencial, direto 





Figura 8 

varios metodos para sua determina^ao. 

E claro que e possi'vel desenvolver 
programas de boa qualidade de forma 
pouco sistematica, mas isto e eventual 
e quase sempre conseguido por pessoas 
talentosas (3s quais nao podemos deixar 
de atribuir emprego inconsciente de 
metodos). Conclui'mos, entao, haver ne- 
cessidade da existencia de padrOes a se- 
rem seguidos no desenvolvimento de um 
programa. Apos definir a qualidade 
desejada, e necessario se estabelecer cri- 
terios para avalia-las (controle de qua- 
lidade), o que e feito, em algumas eta- 
pas, no desenvolvrmento do programa. 

Podemos levantar algumas qualidades 
desejaveis em um programa: utilidade - 
obter resultados corretos; utilizabilidade 

- ser de f3cil opera<;ao e interagao com 
outros programas; monitorabilidade - 
permitir a medi93o de seus recursos 
(se necessdrio); evolutibilidade — permi- 
tir adapta9Qes e mudan9as; rentabUidade 

- apresentar resultados com gastos mi'- 
nimos. Tudo isso sera conseguido se 



o programa apresentar as seguintes 
caracten'sticas: modularidade - ter par- 
tes logicamente independentes; padroni- 
za9ao - obedecer padrOes na nota93o, 
simbologia e terminologia em rela9a"o 
a outros programas; simplicidade - nao 
deve utilizar tecnicas obscuras ou des- 
necessariamente complexas. Estes con- 
ceitos devem estar sempre em mente, ao 
se programar. 

FASES DO DESENVOLVIMENTO 

Programar na"o e, como foi dito,jun- 
tar linhas de programa. A determina93o 
precisa de seus objetivos, ate a avalia- 
9ao de seus resultados, deve obedecer 
certas tecnicas de elabora93o. 

Na aplica9ao das tecnicas, e sugerido 
o metodo de refinamento sucessivo 
(top-clown), que, na verdade, e um me- 
todo bem generico e, por isso, pode 
ser aplicado em qualquer tare fa do nos- 
so dia-a-dia (dividir o problema inicial 
em subproblemas cada vez menores ate 
que eles tenham uma solu95o dire- 
ta. Entao, deve-se reuni-los para compor 
a S0I11930 do problema original). Com 
esta pratica teremos programas modula- 
res. 

ciclo de vida para um programa, 
ou as fases de seu desenvolvimento, 
pode ser dividido em: concep9ao, espe- 
cifica9a"o, projeto, implementa9ao e ma- 
nuten93o. controle da qualidade des- 
tas fases e feito atraves de: avalia9ao, 
valida9ao, verifica93o e teste (figura 9). 

Vejamos agora a defini93o de alguns 
conceitos relacionados ao ciclo de vida 
dos programas: 

concep9ao - determina93o dos proble- 
mas a serem resolvidos, do modo mais 
informal possi'vel. 

especifica9§o - dctcrmina93o dos obje- 
tivos do programa. Compreende o levan- 
tamento das caracten'sticas que o pro- 
grama deve apresentar de modo a aten- 
der seus objetivos, isto e, resolve reficien- 
temente um problema (pre -projeto). 

avalia9ao - estudo metodico para deter- 
minar se a especifica93o realmente leva a 
sol 11930 do problema. 
projeto - desenho logico da implemen- 
ta9ao e concep93o do algoritmo. Nesta 
fase tambem e definida a estrutura de 
informa9ao a ser utilizada; e a parte 
mais importante da programa9ao, pois o 
programa sera construi'do diretamente a 
partir do que foi definido, merecendo, 
entao, maior aten93o do programador. 
Apesar de n3o desejavel, a linguagem de 
programa93o a ser utilizada influenciara 
nesta fase. 

verifica9§o - determina9ao sistematica 
se o projeto apresenta incorre90es em 
rela9ao 3 especifica93o. Esta fase tam- 
bem e importante, uma vez que pode 
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CONCEPgAO 



\ 



r 

MANUTENgAO 



ESPECIFICAgAO- AVALIAgAO 



PROJETO-. — VERIFICACAO 




OPERAQAO 



PROGRAMAQAO 



VERIFICAgAO 
•VALIDAgAO 
CERTIFICAgAO 



TESTES 



Figura 9 - Ciclo de vida de um programa 

determinar otimiza96es no projeto origi- 
nal. 

piogramacao - uma vez que o desenho 
logico do programa ja foi feito na fase 
do projeto, resta, entao, implementa-lo 
sob a forma de um programa, atraves 
de uma linguagem de programa93o (es- 
colhida segundo criterios expostos ante- 
riormente). Alguns conceitos importan- 
tes como modularidade e clareza foram 
definidos no projeto (programa95o es- 
truturada). Apesar disto, esta fase deve 
ser feita permitindo-se liberdade de esti- 
lo no alinhamento de comandos (blocos, 
modulos, etc.), escolha adequada de no- 
mes e variaveis e coloca93o de comen- 
tarios ( document a9ao). programa de- 
ve tambem garantir as caracten'sticas 
de modifica9ao, para facilitar as etapas 
seguintes (teste e manuten93o). 
verifica9ao - demonstra93o sistematica 
da consistencia, amplitude e corre9ao do 
programa, isto e, se ele e coerente com o 
projeto e atende a toda a especifica93o e 
se o faz corretamente, ao ni'vel do pro- 
grama propriamente dito, ou seja, sua 
estrutura interna (instru90es, dados, 
etc.). 

valichicao — determina93o sistematica se 
o programa atende as especifica95es ex- 
ternas em rela93o as suas interfaces (co- 
munica93o com outros programas e com 
seu usua'rio). A qualidade externa deve 
ser avaliada sob o enfoque do usua'rio, 
observando-se falhas e sugerindo modi- 
fica96es. 

depuracSo {debugging) - ato de corrigir 
erros sinta'ticos (escrita errada) e logicos 
(pontua93o equivocada, etc.) que po- 
dem ocorrer quando o programa foi co- 
dificado (escrito) e/ou digitado (trans- 
crito para o computador). 
certifica9ao — comprova9ao geral se o 
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programa funciona como um todo e 
pode envolver outras outras etapas, pois 
est as tern a fun93o de analisar alguns as- 
pectos isoladamente. 
teste - verifica93o sistematica do fun- 
cionamento do programa para varios 
conjuntos de dados. Esta fase so conse- 
gue provar a existencia de erros e nun- 
ca a sua ausencia, por isso deve ser bem 
projetada e executada. Nela e avaliado 
o comportamento do programa em rela- 
930 ao mundo real (a valida93o realizou 
o mesmo trabalho, de modo subjetivo, 
em rela93o 3s caracten'sticas intemas). 
teste de um programa deve esgotar, de 
maneira sistematica, todas as possibili- 
dades de execu9ao, de forma a prever 
falhas que seriam indeseja'veis, caso 
ocorressem durante seu funcionamento 
normal (opera93o). 
opera9ao — utiliza93o do programa. 
manuten9§o - corrigir, adaptar, melho- 
rar e expandir as caracten'sticas de um 
programa. Muito cuidado deve ser to- 
rnado no sentido de se fazer altera9oes 
coerentes com a especifica93o inicial e 
todas as etapas seguintes. Nesta fase 
podemos concluir que o programa esta 
remendado demais, o que acaba provo- 
cando muito esfor90 no sentido de faze- 
lo continuar funcionando corretamente, 
sendo, ent3o, necessario refaze-lo (nova 
especifica93o), fechando, assim, seu ciclo 
de vida. 

Pode-se perceber que a programa93o 
propriamente dita, isto e, o ato de se 
sentar num micro ou terminal de com- 
putador e fazer /testar o programa (bem, 
isto e o que a maioria dos velhos e novos 
programadores chama de programar!), 
ocupa um papel quase que secundario 
na elabora93o de um programa. Isto 
porque os outros processos envolvem 
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Mint SEU COHHJTADOR COM OS 
UVROS DfiS EDICffES HICR0-KI1 



MICROKIT 






BSSEDBLeB 



CURSO DE BASIC 
IK82. 83. 85, CP2M E OUTROS 

VOL.1 - CR$ 32.010 

1E0R1A, EIENPLOS E EIERCl'ciOS RE- 
SOLVIDOS EIPLANADOS EH 18 AULAS. 
i m LIVRO D1DAIIC0. 

VOL.2 - 3. ed. - CR$ 32.000 

TEN COMO 08JETIV0 COHPLEHENIAR 
VOL.1. PROCURA COHDUUR USUARiO, 
A COSSIRUIR SEUS PROPRIOS PR06RA- 
nfiS. TODOS OS PR06RANAS P0SSUEH 
RESPECT 1V0 FLUXOGRAHA E UNA EJPLI- 
CAC&) COHENTADA OA SUA HONIASEH. 
E' UN LIVRO DIDATICO. 



77 PROGRAMAS PARA A LINHA APPLE 
P/OS CONPATIVEIS COH APPLE E IK28M 

3. ed. - CR$ 38.000 

ATRAVES OE J060S E PROGRAMAS EDUCA- 
TIVOS VOCE SERA' INDUZIDO A PEXSAR. 
RESOLVER PROBLEMAS, E TOMAR COMHE- 
CIMEHTO DE COMO PODERft USAR BEM 
COMPUTADOR, DE FORMA SIMPLES E Dl- 
VERTIMDO-SE. 



PROGRAMAS COMERCIAIS DA LINHA APPLE 

P/OS C0MPATIVE1S COM APPLE E TK28M 

TRAS A LISTAGEM CONPLETA DOS PRO- 
GRAMAS, DOCUMEMTACAO E FLUIOGRAHA. 

VOL.1 - 2. ed. - CR$ 42.00f 

MALA-DIRETA, CONTROLE DE EStOGUE E 
CONTAS A PAGAR E RECEBER. 

VOL.2 - CR$ 42.000 

UTILITAR10 BE AR0U1V0S, CADASTRO DE 
CLIENIES COM ENISSAO DE FATURAS- 
DUPLICATAS E CONTROLE DE VENDAS. 



USANDO VISIPLOT 

CR$ 38.000 

AUTOR FAZ UMA ANALISE COMPLETA E 
EJ1EMPLIFICADA DO PROGRAMA VISIPLOT 
(GRA'fICOS) E MOSTRA COMO TIRAR DA- 
DOS, OU SEJA , INTERAGIR, COX OS 
PROGRAMAS VISICALC E SUPERVISICALC. 



USANDO ASSEMBLER 6582 
P/OS CONPATIVEIS CON APPLE E TK28M 

CR$ 62.000 

EIENPLOS PRA'llCOS E DESCRICAO DAS 
INSTRUCOES DO NICROPROCESSADOR 6582 
DUE PODERSO SER APLICADAS EN OUAL- 
OUER CONPUIADOR OUE TENHA ESTE NI- 
CROPROCESSADOR. ESTE LIVRO PODE 
SER USADO POR UNA PES50A OUE NUNCA 
PROGRAMOU ANTES ASSENBLER. 



FACA SEU PEDIDO JA 1 



□ CURSO DE BAS1C-VI 

□ CURSO DE BASIC-V2 
D77 PR06RAMAS 

□ PROG.COMERCIAIS-VI 



□ PR0G.C0MERCIA1S-V2 

□ USANDO VISIPLOT 

□ USANDO ASSEMBLER 



NONE 

END 

CEP CIDADE ESTADO 

ENV1E UN CHEQUE NOMINAL PARA ATI EDITORA LTDA. 

AV.PRESIDENTE NILSON, 165 GRUPO 1218/1216 

CEPI288J8 - RIO DE JANEIRO - R.J. 

CHEQUE BANCO VALOR 



If llCEITIILIIII 



SUPRIMENTO E 
COISA SERIA 



. DISKETES: 5 1/4 e 8" e fitas magneticas 
-marca DATALIFE VERBATIM 

• ETIQUETAS PIMACO - PIMATAB 

. FORMULARIOS CONTlNUOS E PASTAS 

. FITAS P/IMPRESSORAS EM GERAL 

. ARQUIVOS PARA DISKETTES 



PRODUTOS COM 

GARANTIA 

E ENTREGA 

IMEDIATA 



AV. PRES. VARGAS N? 482 GR. 201/203 

Tel.: KS (021) 253-1120 

Telex: (021) 34318 




RTIENCnO: 

EMPRESAS 
SOFTWARE-HOUSES 
CENTROS DE INFORMACAO 

NI10 l-EIOM ISfSTis HNUNCIO <>IE 
CIUISERIEM CONTINURR R-TRRS 

no uoluntrrio prrh iji-ir 
nduiEi.iE cijrso iiiiiiiiiiiiiiiiiiiiini 

I7UI3RIESS * 

VIDEO 

COMPUTER 

CONNECTION 

lEniqnn em viniEiicnssiETiE 

-frOJKSQS IE TRIEINRMIENTf]!) 

-►prue;$trr«> ilustriidrs 

->VTv> INSTITUCKONniS 
->IEVIENTO<> 

EDICAO COMPUTADORIZADA 
COM OS MAIS MODFRNOS 
RECURSOS DE ANIMACAO 
DIGITAL. 

IDEAL PARA TREINAMENTOS 
CONST ANTES EM EMPRESAS 
OU CURSOS A DISTANCIA. 

MIETOnO VIIJEOTKHCH « * 

» 13 D R IE <5 55 * 

Video Computer Connection 
CENTRAL DE INFORMAQOES 
(111 211-S348 * Oil 212-0371) 



PROGRAMAQAO: UM CASO SE"RIO 



CUSTO/UNIDADB DE TEMPO 




30» 8* \g% 50» TEMPO 



ft] < ticsenvolvimonto opir,if,ao 
rcquisitos 



Figura ID 

o estudo do problcmu c aplicacao do 
tecnicas que. na maioria das vczcs. 
nao estao dirctamente relacionadas 
(pclo mcnos dc modo aparcn(o) com 
o computador. A programacao foil a 
coin criterio e tecnica scmpre leva a 
programas mais eficientes e a poucos 
crros dc logica. num nienor tempo de 
dcsenvolvimenlo. pcrigo esta nos 
programadorcs que levant am a bandci- 
ra da programacao cstruturada c das tec- 
nicas de programacao em vao - dizem 
que usam tccnicas e destc modo enga- 
nam aos outros e a si proprios! 

A figura 10 ilustra o modclo do ciclo 
de vida e a relac^ao custo/bencfrcio do 
dcsenvolvimento de urn programa ao 
longo do tempo, isto e. a percentagem 
dc ocupacao de tempo de cada fase cm 
relacao a percentagem dc ocupacao dc 
custo de cada projeto. File foi utilizado 
nos Estados Unidos para decidir sob re 
aplicacao dc rccursos em projclos de 
pesquisa no dcsenvolvimento dc progra- 
mas. E nos, quando c que vercmos a 
importancia da aplicacao dc rccursos em 
projetos serios desta natureza (dcsenvol- 
vimento de software), niiiiia cpoca cm 
que so sc fala em dcsenvolvimento dc 
microclctronica (hardware)? 

Para urn programador de micros, que 
faz programa s isolados. os cuslos po- 
dem estar associados ao gasto dc tempo 
que elc poderia estar dedicando ao la- 
/cr. Em term os professionals, os custos 
estao relacionados aos saliirios dc pro- 
gramadorcs c aos benef'i'cios dos resul- 
tados dos programas. 

CONCLUSAO 

Vimos a evolucSo historica dos equi- 
pamentos de computagao c alguns 
aspectos relacionados com linguagens 
dc programacao: tipos, formas, areas de 
aplicacao, como escolher etc. No en- 
tanto, programas devem envolver um es- 
tudo dos objetivos a serem alcan$ados. 
Sen tar em frente a um micro e digitar 
algumas linlias pode levar a problemas 
nos programas, pois eles acabam sendo 
simples e ineficientes. As fases de de- 
senvolvimcnto apresentadas podem pa- 



reccr chatas c monotonas, mas mostram 
sentido quando a programacao e encara- 
da seriamente! Para alguns programado- 
res, principalmente os que ja vein pro- 
gramando sem o uso de tecnicas e tern 
obtido algum resultado, creio que surgi- 
ra resistencia ao pensar em programacao 
como uma atividade intelcctual organi- 
zada e sob re a qual devem ser aplicadas 
tccnicas dc modo a se mauler a coeren- 
cia. 

Devo lembrar que a documentacao 
cm todas as fases deve ser mcticulosa, 
dc mancira a sc conservar as caracteris- 
ticas do programa (documentacao das 
fases). bem como facilitar a sua altcra- 
efo fulura c utilizacao pelos usua'rios 
(manuais). 

A arte c cstilo de cada programador 
devem ser prcscrvados dc qualqucr pa- 
driio I'lnhotador. A crialividade deve 
estar acima dc qualqucr padrao. mas 
suas vantagens sao obvias. 

Os tenuis foram abordados apenas 
supcrncialmcntc, devido a complcxida- 
de envoivida, c devcrao ser cxplorados 
cm outros artigos. Mas fica o alerta para 
a neecssidadc de criacao e adoc^ao dc 
pad rocs cm programacao (desenvolvi- 
mento dc software), que certamente 
mcrccc maiores atencocs e rccursos. 
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NAJA800. 
ESTE NAO RECUSA 
PROGRAMA 



C ompativel com os Sistemas 

CP/M3.Q .CFVM 2.2. - NAJA/DQS 
DOSPLUS- NEWDOS/80- 
LDOS-MULTIDOS- 
TRSDOS6.1 -TRSDOS 1.3 




N\\I\800 



SUPERVERSATfL 



CARACTERiSTICAS TECNtCAS: 

• Utiliza ate 4 drives de 5 1M" ou 8' \ em 
face dupla ou simples. 

• WinchesterdeSM, 10Mou I5M Bytes 



• 128Kdememoria RAM.expansivel 
para mais 51 2K Bytes. 

• Cofrvpatibiiidadeemsorfwarecornos 
computadores TRS-80, modetos IV, III , 

llGl 

• 24 Iinhasde80ou40colunas 

• Alia resofucSograticacom 640 x 240 
pontes. 

• CarDctGrespararepresentacaografica 
da linguagam A PL. 



Conheca o NAJA 800, um produto 
Kemitron Enlreemcontatoconosco. 



g JJ)KEHlTRrjM iTDA. 

Av. Corvlorno, 6048 ■ Savassi - Fone (031) 
225-0644 - Telex (03t) 3074 - KE Ml - BR 
Belo Horizonte, MG, 



Digitacao nao e 
mais problema 



Assinante! 
Aproveite seu 
desconto de 10% 



KTa v 1 c,^ Kiaa = : ^v/^ KEI=i li g hBEI=i C :^^ BEa ir g t-KEa c: ^, r . BEEl li^hEP: 



PEDIDO 



Agora voce n§o precisa mais ficar horas interminaveis na f ren 
to do micro digitando aquele programa 
legal, A equipe de MS se mobilizou pa- 
ra colocar a sua disposicSo o maior acer- 
vo de programas publicados no Braslh os 
programas da MICRO SI STEM AS. 
Na revista voc£ encontra toda a documen- 
tacao necessaria ao aproveitamento dos 
pragramas; no MS SAVE voce: tern o pro- 
grama gravado em uma ftta cassete por 
quern sabe o que faz. 
Mas, se voce e daqueles queadora ir alern, 
ou seja, estudar a estrutura dos programas, 
entao o MS LIST vai Ihe deixar com agua na 
boca. Nele voce tern as listagens em tama- 
nho natural para est.uda.-las com maior faci- 
lidade. 

Entao confira: MS SAVE e MS LIST, o casa 
do ano. 



^i 24.000 P or ««*-> ^ 

MSn?,P*9 









ATI Editors Ltda. 

Av Piosidtinie WiJiOn, 166 

CGP20O30 - Tel: 262-6306 



fit 1710 



Noma: 

End«r«9° : 

Cidade: 



CEP:. 



Lst.-ido 




Programe a linha H&M 
para organ izar o seu CPD. 

O f uncic-memento do CPD depends de uma boa organizacao. Com 
a linha H&M voce tern o que precisa para organurar e egiuzar o seu 
CPD: pastes para oarquivamemode formularios continuos; arqui- 
vos; arquivos carrmt»OR;"Arl<ette"- arguivos para disquetes; me- 
sas para microcomputadores. terminate de video e impressoras; 
armarios e acessonos, Produtos que se mtegrom, protegem e ra- 
L-io"nli/r)in as informacOee no CPD 
Programe a Linha H&M e deixe seu CPD bem organizado. 



HANKA MALDONADQ 
IND. E COM. LTDA. 



^ytcuis phha itrtun* de Hi 

'•*MENTO Df FOI»M,UL*fllOS 




ETIQ/BAS e MMERGE/BAS sao os programas que 
encerram a serie de artigos sobre um gerente pratico em banco 
de dados para usuarios de TRS-80 

Um gerente pratico 
em banco de dados (Hi) 



.Ivan Camilo da Cruz. 



Nesta terceira e ultima parte do artigo serao descritos 
dois programas que exemplificam o uso das rotinas 
daquele que foi publicado na primeira parte (MS 41). 
Sao eles o ETIQ/BAS, um gerador de etiquetas, e o 
MMERGE/BAS, um mail merge. Ambos sa"o muito uteis em 
mala-direta e tambem encontram aplicacQes em outras dreas. 

O ETIQ/BAS 6 bastante flexivel e se adapta ao formato de 
qualquer formuldrio. Ele possui um menu de tres opcSes para 
os usudrios: cria a descricao de uma etiqueta; imprime etiqueta 
e apaga a descricao de uma etiqueta. A primeira opccio le do te- 
clado v&rias informac5es sobre o formuldrio e os campos que 
serao impressos, gravando em um arquivo com a extensSo 
"/DET" as seguintes informacOes: 

SEQUENCIA INICIAL E SEQUENCIA FINAL - Sao seqiien- 
cias de caracteres especiais impressos ao se iniciar e ao se termi- 
nar a impressao das etiquetas. Na primeira parte do artigo ha" 
uma descri?ao mais detalhada. 

QUANTIDADE DE ETIQUETAS NA HORIZONTAL - Todo 
formulario de etiquetas pode ser ericarado como uma matriz. 
Assim a informacao seria o numero de colunas de determinada 
matriz. O programa sup5e que o numero de linlias desta matriz 
seja grande o suficiente para conter todas as etiquetas que o 
usudrio deseja imprimir. Por essa razao a quantidade de etique- 
tas na vertical nao e pedida pelo programa. 
QUANTIDADE DE LINHAS POR ETIQUETA - Esta infor- 
macao e o numero de linhas que vai do topo de uma ao topo 
da outra. E um numero muito facil de ser calculado. Para isso, 
divida o numero de linhas de cada pdgina de seu formuldrio 
(geralmente 66) pela quantidade de etiquetas na vertical de. 
cada folha. 

QUANTIDADE DE COLUNAS POR ETIQUETA - Este valor 
e o numero de colunas que vai da lateral esquerda de uma ate a 
lateral esquerda da seguinte. Pode ser calculado dividindo-se o 
total de colunas do formulario pela quantidade de etiquetas na 
horizontal. 

BANCO DE DADOS - O banco de dados que contem as infor- 
macSes que serao impressas. 

ARQUIVO DE INDICES - Arquivo de indices do banco de 
dados. Essa informacao e optional. 

QUANTIDADE DE CAMPOS NA ETIQUETA - Quantidade 
de campos do banco de dados anterior que serao impressos na 
etiqueta. 

AGORA, RODANDO 

Apos todos esses dados o computador pedird tambem a des- 
cricao de cada um dos campos que serao impressos na etiqueta. 
A descricao e uma frase que segue uma sintaxe especial. 

O primeiro item que deve aparecer na descricao e o nome 
do campo, seguido opcionalmente do numero da tela em que 
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ele estd localizado. numero da tela, se fomecido, deverd es- 
tar entre parentesis. Depois devera aparecer a palavra POSI- 
CAO e, em seguida, entre parentesis, a posicao do campo na 
etiqueta, ou seja, o numero da linha e da coluna em que ele de- 
vera ser impresso. Estes valores deverao estar separados por vir- 
gulas. 

Para campos numencos, pode-se dar opcionalmente um for- 
mato diferente daquele que foi especificado no momento da 
cria?ao do banco. A especificacao 6 dada pela palavra FORMA- 
TO e por um ou dois mimeros entre parentesis. O primeiro e o 
tamanho total do campo e o segundo, se existir, e o numero de 
casas decimals que o campo possuird. Esses mimeros devem ser 
separados por ":" (dois pontos). Se o segundo nffd estiver pre- 
sente, o computador assumira que seu valor e 0. Ao se fornecer 
o numero de casas decimals deve-se levar em consideracao que 
o ponto decimal ocupara" uma posi?ao na impressao. 

Para campos string pode-se dar, opcionalmente, uma especi- 
rica?ao de substring, ou seja, informar que apenas uma parte 
da string sera - impressa. Esta especificafao se inicia pela palavra 
PARTE seguida de um "(" (abre parentesis) e dois mimeros, 
separados por ":" (dois pontos). Ambos os mimeros sao opcio- 
nais. Os dois pontos devem ser fornecidos apenas no caso do 
uso do segundo numero. Eles significam, respectivamente, a 
posicao do primeiro cardter e o numero de caracteres que serao 
obtidos do campo para serem impressos. Se o primeiro nao es- 
tiver presente, o computador assumird o valor 1 , ou seja, a im- 
pressao desde o primeiro cardter do campo. Caso o segundo 
nao esteja presente, o computador entende que o usudrio dese- 
ja imprimir ate o final do campo, calculando, entao, um valor 
apropriado para o segundo parametro. 

De uma forma mais sintetica, esta sintaxe poderia ser descri- 
ta assim: 

<carapo> C "(" <tela> ")" 1 POSICAO "<" <linha> "," <coluna> ")" 
FORMATO "(" <ta«anho> C "," <decinals>1 ">" ou 
PARTE "(" C (inicio) 3 C "i" <tamanho> ] ">" 

Tomando como exemplo o banco de dados criado na pri- 
meira parte do artigo, vamos descrever os campos de uma eti- 
queta que conterd o nome e o endereco completo do funcio- 
nario. O numero de campos desta etiqueta sera" quatro. As suas 
descricQes seriam: 

CAMPO II NOME POSICAO(l,l> 

CAMPO 2: EN0EREC0(2> P0SICA0(2,1) PARTEC35) 

CAMPO 3: CIDADE<2) P0SICA0(3,i> 

CAHP0 4: ESTAD0(2> P0SICA0O, 25) 

Observe que se em uma linha houver mais de um campo eles 
deverao ser descritos na ordem em que sao impressos, caso 
contrdrio ocorrerao resultados imprevisfveis. Quando uma li- 
nha contiver apenas um campo, a ordem em que 6 dada a sua 
definicao nao tern importancia. Note tambem que apenas os 
35 primeiros caracteres do campo ENDERECO serao impres- 
sos. 
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Rio dr Jtnelro, 19 d« feverelro de 1984. 



?????????????????????????????? 
???????????????????????????????????????? 
???????????????????? ?? 



Pr«z»do 3r. 



Atr»vc» dr»t» conun Icamos • mi dcmftaao do* quaoros 
dcata rmprraa por mot I vn dr abandono do •mprago.nao not cabcndo 
o paganento dr qualqucr indeniracao on cumprimento dr aviao prc- 
vlo. 



Atenc i osamrnt r . 



Ivan Cam I lo da Cruz 
d irrtor-gcrrnte-prra Idrntr 



Figura 1 



Depois de fornecidas todas as descricSes dos campos, o pro- 
grama pedird o nome do arquivo em que esta descricao ficara" 
armazenada. Fornecido o nome, as informa9Ses ser^o gravadas 
em disco e o programa aguardara por uma nova ordem do 
usudrio. 

A segunda opcao do menu pede o nome da descricao que 
sera usada para imprimir as etiquetas e uma expressa"o logica 
para selecionar do banco as fichas que sera"o impressas. Uma 
descricao detalhada com expressOes 16gicas pode ser encon- 
trada na primeira parte deste artigo. 

A terceira opcSo pede apenas o nome da descricao a apagar. 
Deve-se tomar cuidado com esta opca"o ou poderao ocorrer re- 
sultados desastrosos. 

INTERCALACAO DE INFORMACOES 

programa MMERGE/BAS e utilizado para intercalar in- 
formacoes do banco de dados com urn texto qualquer, produ- 
zido com um editor, que pode ser o que foi publicado em 
MS-31, inclusive. 

A primeira opcao, a de criacSo da descrica"o do formuldrio, 
tern a funca"o de ler e armazenar em disco a descricSo de como 
o formulano criado com o editor sera" preenchido com as infor- 
macQes do banco de dados. As informacSes que essa rotina 
pede sao: 

SEQUENCIA INICIAL E SEQUENCIA FINAL - Contidas no 
programa anterior. 

TABULAgAO A ESQUERDA - Numero de colunas que fica- 
ra"o em branco a margem esquerda do texto. 
QUANTIDADE DE LINHAS POR PAGINA - Numero de li- 
nhas de texto a serem impressas em cada folha. 
BANCO DE DADOS E ARQUIVO DE INDICE - Verificar 
programa anterior. 

QUANTIDADE DE CAMPOS NO FORMULARIO - Numero 
de campos do banco de dados que serffo impressos. 

Ap6s estas informacSes o programa pedira" a descricao de 
cada campo. A sintaxe da descricao e a mesma do programa 
anterior. Se voce estiver usando o editor de textos publicado 
por MS, descobrira' facilmente a posigSo do campo. Para isso, 
coloque o cursor no initio do local em que o campo devera" 
aparecer. numero da coluna podera" ser obtido diretamente 
da tela e o da linha executando o comando N do editor. 

Fornecidas as descricSes dos campos, o programa pede o 
nome do arquivo em que a descricSo serd armazenada e grava 
todas as informacSes lidas para uso future 
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Para imprimir o formulano execute a opcao 2 e o programa 
pedird o nome da descricao, do arquivo que contain o texto a 
ser preenchido e uma expressSo 16gica opcional. Ap6s obter 
essas informacSes ele serd impresso para todas as fichas do ban- 
co de dados que satisfacam a expressa"o dada. 

Como um exemplo, veja na Figura 1 um offcio comunican- 
do a demissa"o de um funciondrio e, usando o banco de dados 
criado na primeira parte, podemos preencher este formulano 
com o nome das pessoas que quisermos. 

No offcio, os locais com "?" (ponto de interrogacao) estao 
preparados para serem preenchidos com os dados do banco. 
Portanto, a descricSo dos campos para este offcio seria: 

CAMPO H NOHE P0BICA0<9,1> 

CAMPO 21 ENDERECO POSICAO( 10, 1 ) 

CAMPO 3i CIDADE P0SICA0< 11 , 1 ) 

CAHPO 4i E8TAD0 P0SICA0< 11 ,31) 

A segunda opca"o deste programa pede, como informacOes, 
o nome do arquivo que contem a descricSo, o nome do arquivo 
que contem o texto e a condicao 16gjca, ja" discutida anterior- 
mente. A terceira opcao i a identificacao do programa ante- 
rior. 

COMO CONSTRUIR OS PROGRAMAS 

Em primeiro lugar, digite tudo e salve em disco o programa 
ETIQ/BAS. Depois carregue o programa MBDADOS/BAS e 
execute os seguintes comandos: 

D 10-1370 
D 1560-1690 
D 1830-2370 
D 2530-2650 
D 4170-4330 
D 5000-11750 

Estes comandos irao retirar do programa todas as rotinas 
que nao sera"o necessarias no programa ETIQ/BAS. Em seguida 
execute: MERGE « ETIQ/BAS " 

SAUE "ETIQ/BAS" 

para agrupar o programa ETIQ/BAS as rotinas do MBDADOS. 
Com isso o programa esta pronto para ser utilizado. 

Como se ve, construir o programa MMERGE/BAS se torna 
facil, pois grande parte dele e igual ao programa ETIQ/BAS, 
como por exemplo, parte da rotina de inicializagSo (linhas 50- 
1 70) e toda a rotina de analise da descricao dos campos (linhas 
5340-6190). 



Ivan Camilo da Cruz domina va"rias linguagens de programagSo, entre 
elas BASIC, Pascal, FORTRAN, COBOL, PL/1 e Assembler. Tern ex- 
periSncia em computadores grandes, minis e micros. Atualmente parti- 
cipa da implantacSo do CPD da Controles Gra~ficos Daru, desenvolven- 
do programas em linguagem C. 



Listagem MMERGE/BAS 



10 [MMERGE/BAS - Mail Merge - versao 0.0 

30 '*»* INICIALIZACOES »«* 

50 CLEAR 5000: DEEINT A-Z 

60 '*» Variaveis usadas pel as rotinas do MBDADOS *» 

70 DIM NP. PK10), P2<10), NM(10). I'M(10,10). CM1(10,10), PC<200 

), NC4(200>, TP(200), TC(200>, DC(200>, FM«<200>, NA. TA(10). NC 

(10), FIM. L<J, CH, F7, ID, RA1.C 

80 DIM TESC20), F2, CM(20), RL(20), GTS<20), LG<20> , F3, ELO. NK 

, II, El, E2, E3, E4, CHi, ER , DCS (ZOO), T1<4>. BCi, 1D% 

90 TEl(l) = "Arquivo va^io": TEt(2) = "Caoipo invalido": TE4(3) =="Can. ( . 

o nao pertencB 'a esta tela": TE$(4)="Tela invalida": TE*<5>="De 

scricao incxi stt-nte": TEK6)="Eu esperava um ')•" 

100 TE4(7>="Eu esperava um operador relacional": TEK8)="Eu espt 

rava um string ou um numero": TE4(9)="Eu esperava um operador lo 

gico": VEt( 10)="yal i do somen te em campos string": 1ES<U)="A pag 

ina e' muito pequena" 

110 rE4(12)="Eu esperava uma posicao": TE5(13)="Eu esperava uma 

', '": TEi(14) = "Posicao invalida": TE4< 15)="Tamanho invalido": TF. 

K16)="Erro de disco": 1EK17) = "Eu esperava um '< '" 

120 TEl(18)="Val ido apenas em campos numericos": TE4( 19)="Arqu i v 

o de Indices inexl stente": TE5(20) = "F.u esperava o final da descr 

icao" 

130 TT(2)=2: TT<3>=4: TT(4>=8 

140 '** Mariaveis usadas neste programa »« 

150 DIM SI5. SF5 'Descricao da impressora 

160 Dirt TB, LP 'Tabulacao e quant idade de linhas 
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CENTRO DAS ATENCOES EM 
TODOS OS AMBIENTES 

PARA AMBIENTES MULTIFUNCIONAIS QUE DEPENDAM DE MAIOR NUMERO DE SLOTS LIVRES E 
PARA USUARIOS COM MAIOR NECESSIDADE DE CAPACIDADE DE ARMAZENAMENTO XT2002 

DA MICROTEC E A SOLUQAO EM TERMOS DE "PC-COMPATlVEL'. SEUS OITO SLOTS E 

ARMAZENAMENTO DE 10 OU 20 MBYTES NOS DISCOS WINCHESTER EMBUTIDOS, FAZEM DO 

XT2002 A BASE PARA SEUS PROJETOS PRESENTES E FUTUROS. TESTADO E APROVADO POR 

INUMERAS EMPRESAS, XT2002 ESTA DISPONIVEL NA COMPUMICRO PARA PRONTA ENTREGA, 

COM OS MELHORES PREQOS DO MERCADO E ASSISTENCIA TECNICA EM TODO PAIS. NA 

COMPUMICRO, ALEM DO HARDWARE, VOCE ENCONTRA TODA A LINHA DE SOFTWARE DA 

MICROSOFT, ASTHON-TATE, MICROPRO E OPEN-ACESS DA SPA. 

OUTROS PRODUTOS DE NOSSA LINHA [VENDA OU ALJUGUEL] 



MICROCOMPUTADORES 



PC 2001 
NEXUS 1600 
NEXUS 1684 
UNITRON APATI 
MICROENGENHO 



EXPANSOES — 16 BITS 



EXP. MEMORIA [0 — 512K] 

COPROCESSADOR 8087 

PLACA INCOX 

PLACA MCOX 

PLACA MULTIUSUARIO 

PLAGA COM-R [RJE] 

PLA.CA MRL 

PLACA MCR-3 

PLACA MPS 



IMPRESSORAS 



MONICA/MONICA PLUS 

EMILIA 8035 

ALICE 

GRAFIX MX80/MX100 

MT200/MT250/MT440* 

IMPRESSORAS DE LINHA 

300 A 1000 LPM 

* GRAFICA E CORES 



TERMINAIS 



T2000 [ASSINCRONO] 

LINHA SCOPUS [*] 

TVA 2170 

TVA3178 

TVA 3378 APL/C/SP 

TVA 3379 

* SOMENTE ALUGUEL 
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170 DIM 0, PV(20), PH(20>, NilJII), PIIJ«), N2<20> 



'[)( 



.LI - I L.1I 



f ormul a' 



PRINT: PRINT' PR1NI 
TAB(15>; "1 - Crlar a dt-scricao dc 
- Impr I in i r t'ormu 1 nr i on" 
"3 - Apagar a descrlcao do formulario'' 
'4 - Kim" 
INPUT "OPCAO"; 



1VW (,!_'• 

200 PRINT: 

210 PRINT 

220 PRINT IAB<15>; 

230 PRINT TAB (15); 

240 PRINT TAB < 15): 

250 PRINT 3 510,;: 

260 IF 0<1 OR 0)4 THEN 250 

270 ON GOSUI) 5030,4230,6890.6940 

280 GOTO 190 

5000 '***** *K»»*Ml)»»KNXNKKKMK*HHX«K«KKKH*ltKKMtt 

5010 '*lt* CRIA A DESCRICAO DO FORMULARIO »»* 

5020 'lHHtW » tH HH> IIWtH<M*H»IHm<HHHHH»<HHHHHHH*IH>lMHI 

5030 PRINT "SEQUENCIA INICIAL" 

5040 I30SUB 6120 

5050 SI4=SS 

5060 PRINT "SEQUENCIA FINAL" " 

5070 GOSUB 6120 

50(10 SFS»SS 

50V0 INPUT "TADULACAO 'A EGQUERDA"; TB 

5100 INPUT "QUANTIUADE DE LINHAS POR PAOINA"; LP 

5120 INPUT "BANCO DE DADOS"; BCS 

5130 IDS»"H": INPUT "AROIJIVO DE tNDICEO"; IDS 

5140 OPEN •'I",1,BCS+'VDSC": GOSUB 40601 CLOSE 

515© INPUT "QUANTIDADE DE CAMPOS NO FORMULARIO"; Q 

5160 FOR Il»l TO 

5170 PRINT "CAMPO"; II;": " ; I LINE INPUT EC* 

5180 RR=0: GOSUB 5350 'Analiza a Ueacricao 

5190 IF TKSO'V AND RR«0 THEN ER=20: GOSUB 6000 

5200 IF RR=1 THEN 5170 

5210 NEXT II 

5220 '* Imprlme a deacricao da formulario no disco » 

5230 INPUT "NOME DA DESCRICAO"; NDS 

5240 OPEN "0",l,ND4+"/DET" 

5250 PRINT HI, C.'HRS<34 > ;SIS;CHR*(34 > ; CHR%(34 > ;SF$;CHRS< 34 ) 

5260 PRINT HI, TB , LP 

5270 PRINT HI, CHMX'34) lRCS;CIIRS(34> ; CHRS(34 > ; IDS;CHRS(34> 

5280 PRINT HI, Q 

5290 FOR 1=1 TO 

5300 PRIN1 HI, PV(I>; PHU); Nl< I ) ; PKI); N2(I) 

5310 NEXT I 

5320 CLOSE 1 

5330 RETURN 

5340 *** ANALIZA A DESCRICAO ** 

5350 PL=ls LL=LEN(ECS) 

5360 GOSUB 3350 

5370 IF ERO0 THEN GOTO 60B0 'Erro 

5380 N1(I1)=J 

5390 IF TKS="I" AND STS="POSICAO" THEN ELSE ER=12: GOTO 6080 

5400 GOSUB 3580 

5410 IF TKS(>"<" THEN ER=17: GOTO 6080 

5420 GOSUB 3580 

5430 IF TKSO"N" THEN ER=8: GOTO 6080 

5440 N=VAL(STS> 

5450 IF N(,l THEN ER=14: GOTO 6080 

5460 PV(Ii)=N 

5470 GOSUB 3580 

5480 IF TKSO"," 

5490 GOSUB 3580 

5500 IF TKSO"N" 

5510 N=VAL(STS> 

5520 IF N<1 THEN ER=14: GOTO 6080 

5530 PH(I1)=N 

5540 GOSUB 3580 

5550 IF TKS(>">" THEN ER = 6: GOTO 6000 

5560 GOSUB 3580 

5570 IF TP(N1(I1)>*1 THEN 

PI(Il)=lJ N2(Il)=TC(Ni(Ii>) 
ELSE 

PI(I1)=TC(N1(I1)>: N2(Ii)=DC(Ni(Il>) 
5580 IF TK4="I" AND ST$="F0RMAT0" THEN ELSE 5780 
5590 IF TP(N1(I1>>=1 THEN F.R = 18: GOTO 6080 
5600 GOSUB 3580 

5610 IF TK$<>"(" THEN ER=17: GOTO 6080 
5620 GOSUB 3580 

5630 IF TKSO"N" THEN ER=8: GOTO 6080 
5640 N=VAL<ST<6> 

5650 IF N<1 OR N>200 THEN ER=15: GOTO 6000 
5660 PI(I1)=N 
5670 GOSUB 3580 
5680 IF TKSO": 
5690 GOSUB 3580 
5700 IF TK4(>"N 
5710 N=UAL(STS) 
5720 IF N<0 OR N>PI(I1>- 
5730 N2(I1)=N 
5740 GOSUB 3580 
5750 IF TK4<>"> 
5760 GOSUB 3580 
5770 RETURN 

5780 IF TK$="I" AND ST4="PARTE" THEN ELSE 6070 
5790 IF TP(N1(I1))<>1 THEN ER--10: GOTO 6080 
5800 GOSUB 3580 

5810 IF TI(S(>"(" THEN ER=i7: GOTO 6080 
5820 GOSUB 3580 

5830 IF TKSO":" THEN GOTO 5930 
5840 GOSUB 3580 

5850 IF TKSO"N" THEN ER = 8: GOTO 6000 
5860 N=VAL(STS) 

5870 IF N<1 OR N)TC(NKIl)) THEN ER=15: GOTO 6^80 
5880 PI(I1>=1: N2(I1)=N 
5890 GOSUB 3580 

5900 IF TKS<>">" THEN ER=6: GOTO 6080 
5910 GOSUB 3580 
5920 RETURN 

5930 IF TKSO"N" THEN ER=8: GOTO 6080 
5940 N=VAL(STS) 

5950 IF N<1 OR N>TC(N1(I1>) THEN ER"14: GOTO 6080 
5960 PI(I1)=N 
5970 GOSUB 3580 

5980 IF TKSO":" THEN N2( H >=TC(Ni ( II > >-PI ( II >+i : 
5990 GOSUB 3580 
6000 IF TKSO"N" THEN ER=8: GOTO 6080 



THEN ER=13= GOTO 6000 
THEN ER=B: GOTO 6080 



THEN N2<I1>=0: GOTO 5750 



THEN ER=H: GOTO 6080 



THEN ER=15: GOTO 6080 



THEN ER=6= GOTO 6080 



GOTO 6050 



6010 N^VAl (STS) 



6040 
6050 
6060 
60/0 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6100 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
4340 
6350 
6360 
6370 
6380 
6390 
4400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
4550 
6540 
4570 
4580 
4590 
4400 
4410 
4420 
4430 
4640 
6650 
6640 
4470 
6600 
6690 
6700 

6710 



6720 
6730 
6740 
4750 
4760 
677 
4860 
6870 
6800 
6890 
6900 
6910 
4920 
6930 
4940 



n N »> ■!■ N<h:(Nll IID-Pltll >■••! THEN LR = 15: GOTO 4000 
N^l 11 >-N 
liOSIIU 3500 

IF TKSO")" THEN ER»4: GOTO 6000 
GOSUB 3500 
RETURN 

PRINT TAB(PI-iO); TI:1i(ER> 
RR=1 
RETURN 

'*## LEITURA DAS SEOUENLIAS INICIAL E FINAL *»* 
J»ll SS="" 

PRINT J;: C=0 
INPUT C 

IF C=0 THEN 6190 ELSE IF C<0 OR C>255 THEN 6130 
SS=B4+CHR5(C> 
J-J+l 
GOTO 6130 
RETURN 

'«»««« V«H*tfKft»M*NKHttH«K*«*lttt«* 

'*»» IMPRIME FORMULARIOS »»* 

'HKK*l(K«KKKK<l*K«HH«KKIIKII)lltKIIHII 

'* Le a descrlcao do f or nmlar io no disco * 
PRINT: INPUT "NOME DA DESCRICAO"; NDS 
PRINT: INPUT "NOME' DO ARQIIIUO- TEX TO"; TXS 
OPEN "I",l,NDS+"/DET" 
INPUT HI, SIS, BFS 
INPUT HI, TB, LP 
INPUT HI, BCS, IDS 
INPUT HI, Q 
FOR 1=1 TO Q 

INPUT Hi, PV<I>, PH(1). N1(J>, PKI1, N2(I) 
NEXT I 
CLOSE 1 

OPEN "I",i,BCSJ"7DSC": GOSUB 1060: CLOSE 'Lc deacricao 
TP(0>»1: TC(0>=2 

GOSUB 4410 'Cria a deacricao doB arquivos 
'Ahre oa arquivos de dados 
THEN GOSUB 4770 'Abre oa arquivos dc indices 



'Le e aval la una enpressao loulca 



'Fecha og arquivos de dados e de indices 



««« 



GOSUB 4570 

IF IDSO"" 

PRINT 

BOSUB 3040 

PRINT 

PRINT "POSICIONE PAPEL" 

INPUT "DIGITE (ENTER) PARA CONTINIJAR"; RS 

POKE 16425,1 

LPRINT SIS; 

GOSUB 1490 'Oblem a primcira ficha 

IF ERO0 THEN 6530 

IF F2 THEN GOSUB 2730 'Aval i a a Ficha 

IF F3 OR NOT F2 THEN GOSUB 6570 'Imprime o formulario 

GOSUB 1770 'Obtem a pro:;ima ficha 
GOTO 4480 
LPRINT S2S; 
GOSUB 4900 
RETURN 

'*K« IMPRIME FORMULARIO 
OPEN "I",ID+1,TXS 
CL=0: CC=i 
IF E0F(ID+1) THEN 4440 

LINE INPUT HID+1, LS» CL=CL+1 

LPRINT TAB<TB)j: CI=1 

IF PV(CC)=CL THEN GOSUB 4490: CC-CC+il GOTO 4420 

LPRINT MIDS(L4,CI,LEN(LS)-CI+1) 

IF PEEK ( 14425) >CL THEN LPRINT CHRS(12)f 
GOTO 4590 
CLOSE ID+l 
RETURN 

'«»» IMPRIME UMA LINHA *** 
LPRINT MID4(LS,CI,PH(CC)-CI); 
IF TP(N1(CC))=1 THEN 

LPRINT CCS(N1 (CO ); : CI=PH( CC)+N2(CC) : GOTO 6770 
IF N2(CC)=0 THEN 

FFS=STR INGS ( P I ( CC ) , "H" ) 
ELSE 

FFS=STRINGS(PI(CC)-N2(CC)-i,"H")+". 
ON TP(N1(CC))-1 GOTO 6730,6740,4750 

LPRINT USING FFS; CV1 (CCS(N1 (CC ) ) > ; i 

LPRINT USING FFS; CVS ( CCSIN1 (CC ) ) ) ; I 

LPRINT USING FFS; CVD(CCS(N1 (CC > ) > J 
CI=PII(CC)+PI(CC> 
RETURN 

APAGA A DESCRICAO OA FORMULARIO *** 

'»«K»»«»i<*KKI<R««i<»««KK«KliK)I*KlHI*K«l<K*K»«*« 

INPUT "NOME DA DESCRICAO"; NDS 

OPEN "0",l,NDS+"/DET" 

CLOSE 

KILL NDS+"/DET" 

RETURN 

STOP 



'+STRINGS(N2(CC),"H"> 



GOTO 4740 
GOTO 4740 



'HUH 



MOVEIS FILCRES: 

PROGRAMADOS 
PARA SEU 
MICROCOMPUTADOR, 



A FILCRES desenvolveu uma linha de mbveis . 

inteligentes, exclusivos para o uso em informatica, 

oferecendo o espago ideal para que seu 

microcomputador opere nas melhores condigoes, 

livre de possfveis adaptagoes. 

Os m6veis FILCRES, alem de serem projetados de 

maneira a proporcionar o maximo conforto ao 

operador, apresentam tambem, design moderno 

e avangado, estrutura de ferro pintado em epoxy 

revestimento em melamina, materials que asseguram 

maior resistencia e durabilidade a peca. 

A praticidade dos m6veis FILCRES, irao garantir 

operagoes mais rapidas e racionais, 

dando ainda ao seu ambiente, urn toque muito especial 



Listagem ETIQ/BAS 



10 'EIIG/BAS - Gerador de etiquetas - Uersao 0.1 

20 '** k »*** it a***** mm* »#«*»« 

30 '»»» INICIALIZACOES ««i< 

40 'v < <» v*»«>i »«•» »»»»»), mnimi 

50 CLEAR 5000: DEFINT A-Z 

40 '»* Variaveis usadas pelas rotinas do MBDADOS »» 

.'0 DJM NP. PK10), P2(10>, NM<10), PM(1O,10), CMS(10,1O>, PC<2«0 

>, NC$(200>, TP(200). TC(2O0), DC(200), FMS(200), NA, TA(10>. NC 

(10), FIM, LV, CH, F7, ID, RAIZ 

00 DIM TE4(20>, F2 , CM(20), RL(20), CTS(20), LG(20), F3, ELO, NF 

, II, El, If2, E3, E4, CHS, ER , CCS(200), TT(4>, BCS, IDS 

90 TE4( 1 )-"Arqu i vo vaaio": TE$(2)="Campo Invalido": TES(3)="Camp 

o nao perlence 'a esta tela": TE$(4>*"Tela invallda"« TES(5)»"D« 

scricao I nex I stente": TES(4)="Eu esperava um ')'" 

100 TES(7>="Eu esperava um operador relacional"f TES(8)»"Eu espe 



m 
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?t iqueta" 
de uma et iquet a'' 



rava ura string ou urn numero": rE4(9>="Eu esperava urn operador lo 
gico": TE$( 10)="Val I do solvent e em campos string"! TEt(ll)="A pag 
ina e" ran i to pequena" 

lie TE$<12>="Eu esperava uma posicao": TES<13>="Eu esperava una 
', "': TE4(14>="Posicao invalids": TE4(15>="Tamanho invalido": TE 
S(16) = "Erro de dlscq": TEJ.<17) = "Eu esperava ura '<"' 
120 TE4< 18)="Val ido apenas era campos numerlcos": TE4( 19>="Arqu i v 
o de indices inex i stente": TE$(20>="Eu esperava o final da descr 
i cao" 

130 TT<2>=2t TT<3>=4: TT(4>=8 
140 '»* Variaveis usadas neste program ** 
150 DIM SIS, SFS 'Descr icao da irapressora 
160 DIM QH, LE, CE 'Descr icao do formulario 
170 DIM Q, PV(20), PH<20>, NK20), PK20), N2<20) 'Descrlcao da 

et iqueta 
180 DIM BUS(20,20), BUH(20,20>, PB 'Buffers e ponteiro dos buff 
ers 

190 CLS 

200 PRINT: PRINT: PRINT: PRINT 

210 PRINT TAB (15); "1 - Cr i ar a descr icao de uma 
220 PRINT TAB(iS); "2 - Imprimir etiquetas' 
230 PRINT TAB(15); "3 - Apagar a descries 
240 PRINT TAB < 15); "4 - Kim" 
250 PRINT a 540,;: INPUT "0PCA0"; 
260 IF 0<1 OR 0>4 THEN 250 
270 ON GOSUB 5030,6230,6890,6940 
280 GOTO 190 

5000 'MKItlt»HttKK****MKM»**l)H»«*lt»N**NMM«H«IIW* 

5010 '**« CRIA A DESCRICAO DA ETIQUETA #»* 

502© '»M«»»«N«M«*N*M**Nft«*NN»«N««ft«*N«ft«N»*N 

5030 PRINT "SEQUENCIA INICIAL" 

5040 GOSUB 6120 

5050 SI5=SS 

5060 PRINT "SEQUENCIA FINAL" 

5070 GOSUB 6120 

5080 SFS=SS 

5090 INPUT "QUANTIDADE DE ETIQUETAS NA HORIZONTAL"; QH 

5100 INPUT "QUANTIDADE DE LINHAS POR ETIQUETA"; LE 

5110 INPUT "QUANTIDADE DE COLUNAS POR ETIQUETA"; CE 

5120 INPUT "BANCO DE DADOS"; BCS 

5130 IDS="": INPUT "ARQUIvO DE INDICES"; IDS 

5140 OPEN "I",l,BCS+"/DSC"= GOSUB 4060: CLOSE 

5150 INPUT "QUANTIDE DE CAMPOS NA ETIQUETA"; Q 

5160 FOR 11=1 TO Q 

5170 PRINT "CAMPO"; II;": ";: LINE INPUT ECS 

5180 RR=0: GOSUB 5350 'Altai 1 23 a descr icao 

5190 IF TKSO"F" AND RR = THEN ER = 20: GOSUB 6080 

5200 IF RR=1 THEN 5170 

5210 NEXT II 

5220 '* Imprime a descrlcao da et iqueta no disco « 

5230 INPUT "NOME DA DESCRICAO"; NDS 

5240 OPEN "0",l,NDS+"/DET" 

5250 PRINT HI, CHRS<34 > ;SIS ;CHRS< 34 > ; CHRSt 34 ) ;SFS;CHR$(34 ) 

5260 PRINT Ml, QH; LE; CE 

5270 PRINT HI, CHRS( 34 ) ;BCS ;CHRS(34 ) ; CHRS<34 > ; IDS;CHRS< 34 ) 

5280 PRINT HI, Q 

5290 FOR 1=1 TO Q 

5300 PRINT Hi, Pv(I>; PH(I>; Nl ( I ) ; PI(I); N2<I> 

5310 NEXT I 

5320 CLOSE 1 

5330 RETURN 

5340 '»* ANALIZA A DESCRICAO ** 

5350 PL=l: LL=LEN(EC4) 

5360 GOSUB 3350 

5370 IF ERO0 THEN GOTO 6080 'Erro 

5380 HIIID'J 

5390 IF TK$="I" AND STS="P0SICA0" THEN ELSE ER=12: GOTO 6080 

5400 GOSUB 3580 

5410 IF TK$<>"<" THEN ER=17: GOTO 6080 

5420 GOSUB 3580 

5430 IF TKSO"N" THEN ER=8: GOTO 6080 

5440 N=VAL(ST4) 

5450 IF NCI OR N)LE THEN ER=14: GOTO 6080 

5460 PV(I1)»N 
5470 GOSUB 3580 

5480 IF TKSO"," 

5490 GOSUB 3580 

5500 IF TKSO"N" 

5510 N=vAL(ST4> 

5520 IF NO OR N)CE THEN ER = 14s 

5530 PH(I1)=N 

5540 GOSUB 3580 

5550 IF Tl<4<>">" THEN ER=6: GOTO 6080 

5560 GOSUB 3580 

5570 IF TP(NKI1>>-1 THEN 

PI(Ii) = i: N2<I1)=TC(N1(ID) 
ELSE 

PI(I1> = TC<NKI1)>: N2(I1)=DC(N1(I1>) 
5580 IF TKS="I" AND STS="F0RMAT0" THEN ELSE 5780 

5590 IF TP(NKI1)> = 1 THEN ER = 1B: GOTO 6080 

5600 GOSUB 3580 

5610 IF TKS<>"<" THEN ER=17: GOTO 6080 

5620 GOSUB 3580 

5630 IF TKSO"N" THEN ER=8: GOTO 6080 

5640 N=vAL(STS) 

5650 IF N<1 OR N>200 THEN ER=15: GOTO 6080 

5660 PI(I1)=N 

5670 GOSUB 3580 

5680 IF TKSO":" 

5690 GOSUB 3580 

5700 IF TKSO"N" 

5710 N=vAL(ST$) 

5720 IF N<0 OR N>PKIl>-2 THEN ER = 15: GO 10 6080 

5730 N2(I1>=N 

5740 GOSUB 3580 

5750 IF TKSO")" THEN ER=6= GOTO 6080 

5760 GOSUB 3580 

5770 RETURN 

5780 IF TKS="I" AND STS="PARTE" THEN ELSE 6070 

5790 IF TP(N1(I1))01 THEN ER = 10: GOTO 6080 

5800 GOSUH 3580 

581.0 IF TKSO"<" THEN ER = 17: GOTO 6080 

5820 GOSUB 3580 

5830 IF TKSO":' 

5840 GOSUB 3580 



THEN ER=13: GOTO 6080 
THEN ER=8: GOTO 6080 

GOTO 6080 



THEN N2O1) = 0: GOTO 5750 
THEN ER=8: GOTO 6080 



THEN GOTO 5930 



THEN ER=8: GOTO 6080 



THEN ER=8: GOTO 6080 



5850 IF TKSO"N" 

5860 N=VAL<STS) 

5870 IF NO OR N>1C(N1 < II ) > THEN ER=15: GOTO 6080 

5880 PI(Il)=l: N2<I1)=N 

5890 GOSUB 3580 

5900 IF TKSO")" THEN ER=6: GOTO 6080 

5910 GOSUB 3580 

5920 RETURN 

5930 IF TKSO'^' 1 

5940 N=vAL(ST5) 

5950 IF NO OR N>TC(NMI1>> THEN ER = 14: GOTO 6080 

5960 PKIi)-N 

5970 GOSUB 3580 

5980 IF TKSO":" THEN N2( II >=TC(N1 ( II > )-PI ( II )+l : GOTO 6050 

5990 GOSUB 3580 

6000 IF TKSO"N" THEN ER=8: GOTO 6080 

6010 N=VAL(STS> 

6020 IF N<0 OR N)TC(N1<I1))-PI(I1)+1 THEN ER=15: GOTO 6080 

6030 N2<I1>*N 

6040 GOSUB 3580 

6050 IF TKSO")" THEN ER=6: GOTO 6080 

6060 GOSUB 3580 

6070 RETURN 

6080 PRINT TAB(PL+8); TES(ER) 

6090 RR=i 

6100 RETURN 

6110 '•*» LEITURA DAS SEQUENCIAS INICIAL E FINAL *»» 

6120 J=l: SS="" 

6130 PRINT J;: C-0 

6140 INPUT C 

6150 IF C=0 THEN 6190 ELSE IF C<0 OR C>255 THEN 6130 

6160 SS=--S$ + CHRS(C> 

6170 J=J+1 

6180 QOTO 6130 

6190 RETURN 

6200 'HNMtt*Htt«H«H«M»«*K*Nft»*M*HN« 

6210 'mm IMPRIME ETIQUETAS tut* 
6220 '«NN»»»*»»NNttiiit*tt*»*K*NKK»»ft 
6230 '« Le a descricao da etiqueta no disco « 
6240 PRINT: INPUT "NOME DA DESCRICAO"; NDS 
6250 OPEN "I",i,NDS+"/DET" 
6260 INPUT HI, SIS, SFS 
6270 INPUT HI, QH, LE, CE 
6280 INPUT Hi, BCS, IDS 
6290 INPUT HI, Q 
6300 FOR 1=1 TO Q 

6310 INPUT Hi, PVO>, PH<I), NKI>, PKI), N2(I) 
6320 NEXT I 
6330 CLOSE 1 

6340 OPEN "I", l,BCS+"/DSC"s GOSUB 4060: CLOSE 'Le descrlcao 
6350 TP(0)=iJ TC<0>=2 

6360 GOSUB 4410 'Cr i a a descricao dos arquivoe 
'Abre os arquivos de dados 
THEN GOSUB 4770 'Abre os arquivos de indices 



'Le e aval i a uma 



log ica 



*»* 



6620 
6630 
6640 
6650 
6660 



6730 
6740 
6750 
676e 

677t> 



6780 
6790 
6800 
6810 
6820 



ados e de indices 



GOTO 6660 



6370 GOSUB 4570 

6380 IF IDSO"" 

6390 PRINT 

64«o GOSUB 3040 

64i0 PRINT 

6420 PRINT "POSICIONE PAPEL" 

6430 INPUT "DIGITE <ENTER> PARA CONTINUAR"; RS 

6440 LPRINT SiS; 

6450 GOSUB 6570 'Inicializa o buffer 

6460 GOSUB 1490 'Obteiv a priroelra flcha 

6470 IF ERO0 THEN 6520 

6480 IF F2 THEN GOSUB 2730 'Aval la a ficha 

6490 IF F3 OR NOT F2 THEN GOSUB 6590 'Armazena no buffer 

6500 GOSUB 1770 'Obtem a proxima ficha 

6510 GOTO 6470 

6520 IF PB>1 THEN GOSUB 6710 'Esvazla o buffer 

6530 LPRINT S2S; 

6540 GOSUB 4900 'Fecha os arqulvo 

6550 RETURN 

6560 '»»» INICIALIZA BUFFER 

6570 PB»0: RETURN 

6580 'mm ARMAZENA NO BUFFER »»* 

6590 PB=PB+1 

6600 FOR 1=1 TO Q 

6610 ON TP(Ni'D) GOTO 6620,6630,6640,6650 

BUS < PB , I > =MID4 ( CCS ( Nl ( I ) ) , P I O > , N2 ( I ) ) 
BUH<PB,I)=CWI(CCS(N1<I))>: GOTO 6660 
BUH(PB,I)=CVS<CC5(N1.<I)))3 GOTO 6660 
BUH(PB,I)=CvD<CCS<NWI>>> 
'FIM 
6670 NEXT I 

66B0 IF PB=QH THEN GOSUB 6710 'Esvazla o buffer 
6690 RETURN 

6700 '.om ESVAZIA BUFFER *»« 
6710 FOR 1=1 TO LE 
6720 T=0 

FOR J=l TO PB 
FOR K=l TO Q 

IF PU(K>OI THEN 6790 
IF TP<N1(K>)*1 THEN 

LPRINT TAB(T+PH<K)>; BUS(J. K>;: GOTO 6790 
IF N2(K>=0 THEN 

FFS=STRINGS(PKK>,"H", 
ELSE 

FFS=STRING$(PI(K)-N2(K)-l,"H">+"."+ 
STRINGS(N2(K>,"H") 
LPRINT TAB(T+PH(K));: LPRINT USING f-FSf UUH(J.K); 
NEXT K 
T=T+CE 
NEXT J 
LPRINT 
6830 NEXT I 
6840 GOSUB 6570 
6850 RETURN 

6860 'NHM»tt»immi#»«»m<»)t»itinm)mit«)mii»«)m*inm» 
6870 '«»« APAGA A DESCRICAO DA ETIQUETA *"» 
6880 'm«im«»m»###m»»im)mit»»«mm»H*t»#it»im)mim» 
6B90 INPUT "NOME DA DESCRICAO"; NDS 
6900 OPEN "0",1,NDS+"7DET" 
6910 CLOSE 

6920 KILL NDS+"/DET" 
6930 RETURN 
6940 STOP 



'In ic lal Iza o buffer 
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Comercio, Industria e Participagoes S.A. 

COMPUTER SHOPPING 




Mesas 
para 

Microcomputadores 

Fabricaqao pr6pria • Cores discretas • Desenho moderno 



BTC-05 M 

BTC-03 M 
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BTC-04 M 

BTC-02 M ^^^^^ BTC-01 M 

Cr$ 439.000 




EQUIPAMENTOS 



Micros das linhas: Sinclair • TRS-80* CCE* Unitron* 
Dismac • TK 2000 II • TK 85 • Exato Pro • Impressoras 
Modem • Etc. 



Nas lojas Brasil Trade Center, voc&tamb£m 
encontra video-same, cartucho com jogos, 
som, telefonia, etc., das melhores marcas. 



SUPRIMENTOS 



PerifeYicos • Disketes • Fitas • Drives • Placas de 
Expansao • Interfaces • Formulario Continuo • Cabos 
• Arquivos para Disketes • Etc. 



SOFTWARE 



Programas e Jogos variados para todas as linhas e 
marcas de Computadores 
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VIDEOS 
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Curso de Ingles em video cassete • Telao • Suporte 
para TV • Transcodificagao para todos os sistemas • 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabega« 
Baterias para 2 e 8 hs. • lluminadores • Cabos de 
extensao para Camaras» Bolsas para Camaras e Videos 
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Centro-RJ - Tel: 222-5343 
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Niter6i-RJ - Tel: 710-3659 
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Jogo da memoria 



Nelson Hisashi Tamura 



Memory Simula na tela do TK o conhecido jogo da memo- 
ria. jogo consiste em achar o par de figuras iguais em uma 
matriz com 60 posicOes. fi umjogo para doisjogadorese joga- 
se digitando duas coordenadas em cada jogada, como por 
exemplo, "1 A5D" com o numero sempre em primeiro. 

Cada jogador qup acertar o par de uma figura tern direito a 
continuar a jogar ate errar. 

jogo possui dois ni'veis de dificuldade: no "facil" as figu- 
ras serao mostradas no ini'cio do jogo, durante um certo tem- 
po, e, durante o jogo as figuras "desviradas" ficarao expostas 
alguns segundos. No ni'vel "difi'cil" na"o sera mostrada nenhu- 
ma figura no ini'cio e durante o jogo as figuras que forem vira- 
das serSo rapidamente desviradas. 

Vamosla? 



Nelson Hisashi Tamura 6 estudante do curso te'enico de eletrdnica em 
Mogi das Cruzes e atualmente trabalha numa oficina de enrolamento de 
mo to res eldtricos. 





505 FOR X'lM TO 191 
510 "OP ,- = 1 TO 2 
520 LET A d InT 
530 IF PEEK Ri 



560 NEXT 



1 rem pesepuar pelo m en03 
caracteres 0uai30uer 1ia 
" v ast 



C-03UB 500 



gjMEMORY 



6 LET M=20 

7 LET P1=0 
B LET P2=0 
9 LET P=l 

PRINT 

LET A=0 
30 FOR >=4 T 
40 PRINT AT 



;.o;"l 



50 NEXT X 

60 GOSUB 100 

70 LET P. =31 

CO C-05U6 100 

90 GOTO 112 

100 PRINT AT S 
.Pit 11 , A, "g" ; AT 

a- st 20 - a 1 

110 RETURN 
112 GOSUB =000 
115 IF DIF=20 THEN 00SU6 30* 
120 LET NI-' _ " 
130 LET BS=" ■ " 
140 LET CS = " ™ ' 
150 FOP N=4 TO 19 STEP 3 
160 FOP .*=! TO 28 STEP 3 
170 PRINT ST NX, fiS. AT N*l.; 
P.T N+2,X,C* 
130 NEXT ' 
190 NEXT N 
195 SL0U 
200 GOTO 1000 
■00 FOR '=5 TO 20 STEP 3 
310 FOR /=2 TO 29 STEP 3 
315 LET N=N*i 
320 PRINT ST > 
513+Nl ) 
330 NEXT , 
340 NEXT ' 

345 FOR U=0 TO DIP 

346 NEXT U 
;50 RETURN 

502 "OR X=165i4 TO 165" 

503 FOKE ■ ,126 
. 504 NEXT ■. 



:HRS 'PEE- IS 



570 PETUR; 

1000 REM 

1002 CIM At£> 

1004 GOSUB 3000 

1005 DIM B(2) 

1010 INPUT II 

1011 IF LEN !%■■ 4 THEN GOTO 1010 
1020 LET All'aCODE IK TO 1) 
1030 LET fii2i=C0DE I*i2 TO 2' 
1040 LET B(l)«C0pe It I 3 TO 3' 

1050 LET Ei2'=C0DE Ha TQ i 

1051 IF A(li<29 OR PMii 34 OR £' 
11 <29 OR Bill ; 34 OR B 13) <33 OR A 
12) >47 OR BtSi '36 OR 6i2i 47 THE 

II GOTO 1010 

1053 LET RsRll] -29 

1054 LET S=Ai = i -38 

1055 LET T=B!lJ -29 

1056 LET U=B(2> -38 

1057 LET Ll=5*iR*3' 
105S LET Cl=2+i3*3> 

1059 l-ET L2 = S+'.T»3l 

1060 LET C2=2*IU»3) 

1061 LET D"PECK (16514* iP-IQi *ii 
1070 PRINT AT L1,C1:CMRS C- 

1030 LET E=PEE' i 16514+ (T*10i ♦'.!■' 

1090 PRINT AT L2,C2:CHRs E 

1094 FOR G=l TO DIF 

1095 NEXT G 

1097 IF E=0 PNC THEN PRINT 

AT LI. CI: "■" 

103S IF 0=0 OliC E>'-0 THEN PRINT 

AT L.2.C2, ••■■■ 

1099 IF C'=0 OR E=0 THEN GOTO 150 



1500 IF P=l THEN GOTO 7000 
-5-10 IF P=2 "ME;: c-OTO 6000 
£000 REM _ 

2005 POKE ' 16514+ ip, 10> 
2010 POKE '16514+ iT-lOi+U) .C 
2020 PRINT ST Ll-l.Cl-1. 
L1C1-1." ' ; RT L1+1.C1-1. 



2035 GOSUB 5000 

2040 GOTO 

3000 REM :_ 

30^ IF P = l THEN PRINT RT 2,26 

3020 IF P=2 THEN PRINT RT 2.20, 

3040 FOR >=0 TO 3 

3050 PRINT PIT URL "£" M. '^"™" . 

T URL "2" .URL "M" ;•■<—*■>•• 

3060 NE-T . 



3070 RETURN 

5000 PEM ._ 

5100 IF P=T TheiR^t - PT=P7+1 

5105 IF P»2 THEM LET P2=P2+1 

5110 IF p = l THEN i_ET NN=22 

5120 IF P=2 THEN LET 1111=30 

5130 IF P = i AND PI 9 THEN LET HN 

5140 IF p»2 fl N p P2;9 THEN LET NN 

5145 LET PT=Pi 

5146 IF P = :- THEN LET PT = P£ 
5150 PRINT RT l.HN.PT 

5155 IF P2+P1=30 THEN GOTO 5500 

5160 RETURN 

5500 REM + FiuRL CO JOG 

10 PRINT BT 10.6. " 



5515 PRINT RT 12.5, "0 UENCEDOP E 

5520 IF PI P2 Then PRINT RT 15.2 

. II! 

5530 IF PJgjPJt THEN PRINT RT 15 2 

R* 

5540 IF P1=P2 THEN PRINT AT 15.2 

• "03 DOIS EMPATRRAM 

5550 PRINT RT 21 1 



GOT'; 
CLS 
RUN 

REM 
REM 



,-ET P = l 

GOTO 1000 ____ 

•"EM E^^JKifcEH-EK! 
LET M=2S 
LET P=2 
GOTO 1000 



:R!IiT RT 



55 30 
5590 
5600 
6000 
6001 
6010 
6C 30 
6040 

-ooo 

7010 
7030 
7040 

3000 

■3005 
■3010 



3015 
8080 

ORIR 

8025 NEXT 

3050 PRINT AT 6,7, 



5060 PRINT RT Bi4< "C5TB JOGO CON 
SISTE EM RCHAR' .TAB i . "0 PRR DE 
FIGURR5 IGURIS. " 
6070 PRINT TAB 4 : "E UM JOGO PARA 

0013 JOGR0O-" . TAB 1;"RES. E JOG 
A-SE DIGITANDO DUAS . TAB 1. COO 
RDENACA5 P-CAC'A JOGADA COMO" . TAB 

l."POP EXEMPLO ""1ASD"", DIGITA 
IIDO".TRB 1 "SEMPRE N" EM PRIME 
IRO E A •' TAB l.'LETRA EM 5EGU 
NDO. " 

■3030 PRINT TPiB 4, "CADA JOGADOR 
OUE ACERTAR 0" TAB It "PAR DE UMA 

FIGURA. TEM-SE DI--.TAE- l."REI 
TO R CONTINUAR JOGO A ■ " ; TAB 




INSTPuCOc: 



l.'FRENTE DO ADUERSORIO. " 

S090 GOSUB 8500 

5100 PRINT RT 8.4. "0 JOGO POSSUI 

2 NI'.'EIS DE ".TAB 1 . "DIFICULDA 
DE NO FACIL RS FI-";TRB li "OU 
RAS 5ERA0 MOSTRADRS NO INI-".TR 
B 1 "CIO DO JOGO DURANTE UM CERT 
TAB 1. "TEMPO. E DURANTE J 

OGO . RS FI";TAB l."-GURA5 OUE FO 
REM DESVIRADAS F!" ThS i ' -CAPRO 

BXPOSTRS ALGUNS SEG. NO" 
5110 PRINT TAB 1;"DIFICIL NRO 5E 
RAO MOSTRADAS NE".TAB 1 . " -NHUMA 
FIGURA NO INICIO DO JO -".TAB 1." 
GO. E DURANTE JOGO AS FIGU-" . 
TAB 1,"PA3 OUE FOREM '.'IPADAS 3E 
PRO .TAB 1. "RAPIDAMENTE DE5UIR 

ADA; , ■ 

S120 GOSUB 3500 
6130 PRINT AT 21.5; " 

3140 LET J=l 
5150 PRINT AT . 
J. '•■ JOGADOR 

6160 INPUT NS 
3170 LET J=2 
6172 PRINT RT . 
" ; J, "■ JOGADOR 
61-3 INPUT PS 
3175 LET DIF=0 
3130 PRINT AT 3 
DE DIFICULDADE 
■5190 PRINT AT 10.2. 

B - DIFICIL" 
3200 IF INKEY* = 'F" THEN LET DIF = 
20 
6210 PRINT AT 10.2. "B - FACIL 

D - DIFICIL" 
3220 IF INKEV*='D" THEN LET DIF= 
1 

3230 IF DIF=20 OP DIF=1 THEN GOT 
3 3250 

3240 GOTO 6190 
3250 FOR X=4 TO 21 
- ;60 PRINT AT < . 1 . " 

^"jfflT" 



6270 NEXT ■ 

3230 RETUfiN. 
3500 

■5510 PRINT AT 2i.5."TECLE 

P. CONTINUAR" 

3520 IF INKEYS="C" THEN GOTO 





,4, "DUAL NOME C 



,4; "OUAL NOME 



3. 'OUAL NIUEl 
"F - FACIL 



35 30 PRINT AT 21.5 



3540 GOTO 3500 
3550 FOR <=6 TO 19 
3560 PRINT AT X . 1 , " 
" , AT RB5 (X-271 ,16: 

8570 NEXT X 

3580 RETURN 

9000 SAUE "MEM0P1" 

9010 PUN 



Memory 
60 



AS VANTAGENS 
DESSE FLAT. 




■ 



Flat Cable e fabricado com 
passo de 1 ,27 mm entre o centro 
de condutores adjacentes e nas 
bitolas 26 e 28 AWG; por isso, ele 
elimina grande parte dos 
condutores isolados 
individualmente. 
Com o Flat Cable, voce pode 



Flat Cable e isolado em PVC de 
alta flexibilidade na cor cinza, e 
pode ser utilizado com todos os 
conectores de clipagem mecanica 
existente no mercado. A precisao 
mecanica do Flat Cable assegura 
uma clipagem perfeita e elimina o 
risco de curto circuito entre as vias. 





(Vista em cornet 



FLAT CABLE KMP e um Cabo 
Piano extrusado de 1,27 mm. 
E ideal para interligar, a nivel 
de audio, aparelhos eletronicos, 
circuitos e estagios dentro de um 
mesmo equipamento e sempre 
que voce precisar acoplar um 
numero muito grande de 
informacoes entre dispositivos. 
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CARACTEfllSTICAS GEflAlS 






28 AWG 


CAPACITAMCIA i«eiMi 

SlMtTHlCA "' - 1 


42 


36 


CAPAClTANCIA laiKiim 


72 


60 


fiCSlSTENCIA MINIMA ,. M . m . 
DE ISOLACAO ,M " * Km ' 


20 


20 


nCSlSTCNClA DO mftii-i 

cowourem u ' 111 " 1 


1M 


240 


TENSAO DE .... 
0P6«ACA0 ,v ' 


300 


300 


TENSAO DE .... 
TESTE m 


2000 


TOM 



otimizar a fiacao interna e a 
ocupacao dos espacos fisicos nos 
equipamentos e dispositivos 
eletronicos, isso porque ele tern 
uma grande flexibilidade, 
associada a uma disponibilidade 
bem variada em numero de vias. 
Voce encontra Flat Cable em 
10, 14, 16,20,26,34,40,50 
e 60 vras. 



FLAT CABLE 



kmP 



CARACTERlSTICAS MECANICAS 




7AAW0 


2SAWC 


CWDOTOR 
INTCfWOiAl 


CORDA Df F(OS 

DE COBRE 

ESTAKHADO 

: _ 0,*ftmm 


COftDA DE FIOS 

DE COBRE 

' ■-. i .-. -; ■ i ■ -:;:; 

.'0,3* mm 


ISOLAV1HNIO 


PVC CINZA 


PVC CIM2A 


DlAMETBO 
EXTERNO Imni) 


0.96 


0,96 


PASSO 'mm|i 


: .'/ 


!.:■',- 


NUMETO DE 

r.0Ni>u tones 


10/ Ml lB/20i'26i'3</W50rBO VIAS 


TEMPERATURA DE 
OPERACAO 


20* * 1 10** 


TEMPt HATUHA DE 

AHVA/FNACFM 


- 5&* * W 



Cabos Especiais e Sistemas Ltd a. 

BR 116/km 25 - Cx. Postal 146 • 06800 

EmbO SP - TeJ. Oil. '494 -2433 Pabx ■ Telex 

011/33234 KMPL - BR - Tofagramas Pirelcable 



Departamento de Engenharia 
da KMP esta a disposicao, para 
auxilia-lo na escolha dos cabos, 
conectores e acessorios mais 
adequados a sua necessidade. 



& 



f 



AAloro 
Fichas 



CP 500 

C6DIGOS E MENSAGENS DE ERRO 




trs-80 trs-80 trs-80 trs-8 





C0OIGQS 0£ ERRO DO DOS-500 


C6dijo 


Montagem 





Nenhum vro *di entO»1ir«dO 


1 


Erro ORG durante E/S do diKO 


2 


Oiive nfo *itfl no sinema 


3 


Pes da cj» nuclei duranie E S do dhx» 


4 


Efro CHC dur«nl# EflS do dnco 


e 


SttOr do drtCO «>Jo lot •neontrada 


a 


Falha no hardwwro do d"»W 


7 


Codiqo do erro . udo'iii *• 


a 


DfiH nfo esta preparado 


9 


T»nuirv» inegal de EfS 


10 


Piu'amct'o de UMiuftda pedldo nla lot encontrada 


11 


Parimetro Hegal cto eornsnde 


12 


Tempo esgofada no drhnj 


13 


I*mii.rt de E/S ■legal para um (IrKO l*w OQ5-5Q0 


14 


Falrta de gravaca'a na E i5 die s-icu 


IS 


Dneo com o/aieca'a contra gr eraf-fa 


16 


Ntimera do arqutvo l&jico dagal 


17 


Erro na lelWi* do dlf4T©fl*> 


18 


Erro na flravK-fc do dirtier to 


19 


Noma irvrii ido * *»qulvo 


20 


E rro de lei tara do rtlof GAT 


21 


Erro de or bvpc&i do iclor CAT 


22 


Erro de loitura do letor HIT 


23 


Cri'o de gravnefa do solar HIT 


24 


A fo/jivo nffo erKonir ado 


35 


AitMO a arquno nogada davlda a proLeclo par senna 


20 


Etpafo do diroi&rio complatn (cha-ial 


77 


Eipafo do ditto eompWlo Ichuktl 


28 


Ten U1«va da lor *p6s irinl do arQulvrO 


2fl 


Tentauvn de lor hn» dot limit** do erquivo 


30 


N . i hJ •'• i id> cm i 3b i dn pom -v i 


31 


Programa nta encorvxado 


33 


NiirtWfO invdlidode drum 


33 


Codifo do aero imJolhrndo 


34 


Tan rai tv* de usar um arquivo que nfo 4 programa 


35 


Falha de rnemftrio din*n1* «*i*3Jfn*r>|o d* proflrama 


36 


Codigo do erro ii»da<in»i/o 


37 


Aojuo ■ arquivo negado dtvido 4 prOWfrfo pot Urdus 


36 


TentaUva de E IS para um arquivo nio atarto 


39 


Paromeiro do comando Irrvalido 


40 


O arqmvo Jd ml* no direldn i o 


*1 


Tefuatlva da utnir um arquivo ia atssrio 


4? 


Tamnidio InwHida de registro 





CdDIGOS DE ERRO DO BASIC RESIDENTS 


Codigo 


Mfnugern 


Stanlflcada 
NEXT Mm FOR 


01 


NF 


02 


SH 


Erro delinlaM 


03 


RG 


RETURN s*m GQSUH 


04 


DD 


Irwuliciineia d» dado* W* DATA oy rNPLfT 


D!i 


f=C 


Pjrimelro fora dai cspeGilicacOet 


06 


OV 


Ov» rf low numarlco 


07 


OM 


Mir noma insuf iciante 


S3 


UL 


Imha iiDXiKonte 


Off 


as 


Subccrlio lore de (nUa 


10 


DO 


RedimenshinDmanio tie mairit 


11 


/O 


Dl-jiito por wro 


12 


ID 


Comando diiaio iltgal 


13 


ry 


Dodot ilagan para o upo da variaval 


14 


:::•? 


Eipaco <mufM:<cnt* para string 


16 


is 


Slnng fnaior do que 255 caractarei 


IG 
17 


ST 

CN 


Opafacfo com siring muilo camploiia 
CONT imiioiii'val 


(8 


NR 


Au»*ncla do RESUME 


19 


RW 


RESUME rtm ON ERROR 


20 


Iff 


ERROR comcodigo i«eg*l 


21 


MO 


Aus+ncla de operando 


22 


FO 


Pwtoi W¥*K»os para orqiuvo 


23 


L3 


Ap*™rt part difeo 





CQDICiOS DE £RI«0 DO BASK DISCO 


C6dig>o 


Menwserr> 


G1 


Bulfar d» arquivo nttlor oju* o ptnrwtldo 


57 


Erfo Inter no 


53 


Quantldade "lagal da txsUm 


54 


Arquivo nfo tncon UkIo 


55 


OperaciO Invilida da arquivo 


58 


Efro de B/S 


>:.:• 


Dhco lotado 


S3 


Leitura apos f tm do orqurvo 


64 


Numnro da reglslro multo gianda 


if 


Noma inv.il trio para arqurvo 


67 


IriUruoJo invalids am arquivo 


68 


E "coh-d de 4rquivOS «> d*«o 


69 


Dnco proltgido »nr<4 gravaeJo 


70 


Amw proitiido ao arrjutvo 



Mesmo no escuro, o programa 
vai f icar na memoria. 



Utilizando UNI VOLT nos micro- 
computadores de sua empresa, a falta 
de energia jamais interromperd o 
trabalho etiminando os riscos com a 

Ssrda da memdria, 
NIVOLT d o gerador 
eletronico mais pr^tico, 
portal il e que dispensa 
rnstalacoes especiais. 
UNIVOLTOPAR 
PERFEITO PARA OS 
MICROS. 




iPtii 



^nitron 



ortQenhafra, intJusma 6 comOrcto lida 

Rua AiUCrniela Lcilao. 1 10 ■ Freguesla do 0- SAO PAULO 

PABX - (011) 8S8-4744 ■ TX. f011) 32003 UEIC-QR 



SP 



REPRESENTANTES: • Se\o Paulo (011) 058-4744 • Campinas (0192) 2-1575 

• Rio de Janeiro (021) 201-7643 • Porto Alegre (0512) 22-5288 

Curiiiba (041) 262-8423 * Blumenau (0473) 22-4422 • Befo Honzonte (031) 225-6425 

■ Brasilia (061) 248-5359 • Goiania (062) 224-7271 • Salvador (071) 245-7812 

• Aracaju (079) 224-7776 • Maceio (082) 221-2617 • Recife (081) 325-3189 

• Belem fQGIi 222-5122. 



Crazy man 



Henrique Monteiro Crist ovao 



Crazy man 6 um jogo do tipo Pac-Man e roda nos micros 
compativeis com o TRS-80 modelo IH.Primeiramente, temos 
a tela de apresentacSo do programa. A seguir, pressione EN- 
TER para fazer o labirinto e, quando este estiver terminado, o 
programa perguntara: "verificar?". Se voce apertar S ele verifi- 
ca se alguma parte do labirinto esta fechada, abrindo-a em se- 
guida. Se voce julgar que o labirinto ja esta perfeito, aperte 
ENTER ou uma das setas para come$ar. 

Voce e o boneco que fica piscando. Ele e movimentado 
pelas quatro setas do teclado. Seu objetivo e fazer o maximo 
de pontos possivel durante o tempo de um minuto, de acordo 
com a legenda: 

- um pontinho ( . ) vale um ponto ; 

- uma mulherzinha vale cinco pontos; 

- uma cabecinha vale trinta pontos e as quatro cabecinhas que 
ficam uma em cada canto do labirinto valem um tempo extra 
de trinta segundos. 

Se voce bater em um dos "X" espalhados no labirinto, sua 
jogada acaba, mesmo com tempo extra. E se voce bater no ca- 
reer cheio "■" voce perde dez pontos e volta para o meio do 
labirinto. 

Porem se voce comer as quatro cabecinhas e nao bater em 
nenhum "■" ganhard um tempo extra de 60 segundos. Caso 
voce faca mais pontos do que o recorde, tera direito a escrever 
o seu nome, com no maximo dez caracteres. 

Se alguem quiser acompanhar o programa, aqui vao alguns 
passos importantes: 

• rotina da musica — linha 10. 

• legenda — linhas 15 e 16. 

• moldura do labirinto - linha 20. 

• labirinto - linhas 30, 35, 40 e 50. 

• verifica$ao do labirinto — linhas 55 e 60. 

• movimento do boneco - linha 70. 

• sub-rotina de som — linha 120 (onde A e o valor da nota que 
varia entre e 255, e B e o tempo de duracSo desta nota). 

Vejamos, agora, algumas variaveis importantes: 
C — coluna do boneco. 
L — linha do boneco. 

N — endereco de vi'deo em que esta o boneco. 
K — tecla pressionada. 
P — pontos. 
R - pontos do recorde. 
R$ — nome do recordista. 
A — valor do som. 
B — duraca"o do som. 

MICRO SISTEMAS, agosto/85 



REM Henrique Monteiro Crlatovao 13/07/84 Nucleo de Process 
amento de Dados da Escola Tecnica Federal do Espirito Santo 
10 CLEAR 1000iRS»"?????":P0KE 16526, 33:P0KE 16527, 78-.F0R 1=20001 
TO 20028SREAD U:P0KE I , U:NEXT:DATA 14,255,33,0,1,58,61,64,203,2 
53, 198, 2, 21 1,255, 214, 2, 21 1,255, 6, 160, 16, 254, 43, 124, 181, 32, 239, 20 
1 

15 CLSsPRINT323,"«*» CRAZY MAN »**" ;3199, "< . > — > 1 P0NT0"; :P0K 
E 15623, 254SPRINT3268," — > 5 PONTOS" ( :P0KE 15687 , 196:PRINT3332, " 
—> 30 P0NT0S";3391,"4k ";«P0KE 15754 , 196:PR INT3396, "— > TEMPO E 
XTRA" 

16 POKE 15815, 238IPRINT3460," — > FIM DO JOG0":P0KE 15879, 191 iPR I 

NT3524, > -10 PONTOS E VOCE VOLTA PARA A P0SICA0 INICIAL"3849 , 

"PRESSIONE <ENTER> PARA C0NTINUAR"sG0SUQ 160 

20 E-OsP=0:T=0:Q=0:CLS!PRINT39, "TEMPOS 60 seg.";342,"P0NT0S:"P ;' 

148,"REC0RDE:"jR|"de ";R%,:F0R 1-4 TO 15:PRINT364*I+9,CHRS< 191 ) ; 

364ttI*53,CHR$<191);CHR5(191>!!NEXT:PRINT3266,STRING5<44,191>;397 

0,STRING5<44,191); 

30 FOR 1=5 TO 14«F0R J=64*I+10 TO 64»I+52:1F J=64»I+52 POKE 1536 

0+J,46 ELSE POKE 15360+J,191 

35 FOR X=l TO RND<3>+1U=J+1!IF J=64»I+53 THEN 50 ELSE IF RND(8) 

-1 F-254 ELSE IF RND(30)-1 F=238 ELSE F=46 

40 POKE 15360+J.FSP0KE 20020, RND(5> !M=USR (0) :NEXT X,J 

50 NEXT HP0KE 15691 , 196SP0KE 15732, 196:P0KE 16267, 196sP0KE 1630 

8,196:C=32:L=9:P0KE 15968, 252: POKE 20020, 7:PRINT3219, "VERIFICAR 

?".:G0SUB 160JIF JOB THEN 70 ELSE PRINT3219,"VERIFICAND0" j 

55 FOR 1=15691 TO 15733:IF PEEK(I)<>191 AND PEEK<IM>238 NEXT I 

ELSE G=0:FOR X=l TO 9iF0R- W=-l TO 1UF PEEK ( I+64*X+G+U) <>191 AND 

PEEK(I+64aX+G+U)<>238 NEXT W,I ELSE G=G+U:NEXT XsIF 1=15733 THE 
N 60 ELSE POKE I,46sNEXT I 

60 PRINT3219," OK I "jlGOSUB 120SG0SUB 160 

70 A=2«B»1«G0SUB 120:IF PEEK ( 16920>=1 THEN 130 ELSE PRINT349,P : a 
15,59-PEEK<16919>;:IF PEEK < 16919>=59 THEN 130 ELSE K=PEEK (14420) 
:P0KE 15360*64*L+C,32:IF K=64 C=C+i ELSE IF K=32 C=C-1 ELSE IF K 
=16 L-L+l ELSE IF K=8 L=L-1 

80 N=PEEK<15360+64«L+C>!P0KE 15360+64*L+C,253: IF N< >46 THEN 90 E 
LSE P»P+ltX=USR<0>:G0T0 70 

90 IF N=32 THEN 70 ELSE IF N<>254 THEN 100 ELSE A=20:B=2:G0SUB 1 
20sP=P+5:G0T0 70 

100 IF N=19l THEN 110 ELSE IF N=238 THEN 150 ELSE A=50:B=3:E=E+1 
:GOSUB 120sP=P+30UF E< >4 THEN 70 ELSE T=1:G0T0 70 
110 A=10rB=30:G0SUB 120sP=P-10:P0KE 15360+64«L+C , 191 sC=32:L=9=Q= 
is GOTO 70 

120 POKE 20020, AsFOR 1=1 TO B : X=USR <0) sNEXTsPOKE 20020,7 s RETURN 
130 PRINT315,H 8 sIF T=l THEN 140 ELSE A=100:B=7:G0SUB ISO I IF P<=R 

THEN 15 ELSE PRINT3198, "PARABENS I VOCE E' NOVO RECORDISTA, 
ESCREVA SEU N0HE."s s INPUT RlsRS=LEFTI(R5, 10) :R=P SGOTO 15 
140 A=30:B=5!FOR J=l TO 5:PR INT3219 , "TEMPO EXTRA"; sGOSUB 120SNEX 
T JST=0SP0KE 16920, OsPOKE 16919, 30:IF 0=1 THEN 70 ELSE POKE 1691 
9,0:G0T0 70 

150 T=0sP0KE 16919, OsPOKE 16920, 1SG0T0 70 

160 J=PEEK(14420):IF J=0 THEN 160 ELSE A=40sB=l sGOSUB 120SPRINT3 
211,STRINGS(26,32);:P0KE 16920, OsPOKE 16919 , OsRETURN 



Crazy man 

E — numero de cabecinhas que voce ja comeu. 

T — se for igual a 1 voce tera tempo extra, e se for igual a 

voce nao terd tempo extra. 

Q — se for igual a 1 o tempo extra sera de 30 segundos, e se 

for igual a o tempo extra sera de 60 segundos. 



Henrique M. Cristovao 6 aluno da Escola Tdcnica Federal do Espirito 
Santo, onde desenvolve trabalhos em um CP-500. 
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Sinclair Sinclair Sinclair sine 



Fungos 



Claudio Costa 



Neste jogo para micros da linha Sin- 
clair voce e um jardineiro espacial em 
orbita de um pequeno planeta num sis- 
tema solar distante. Ninguem vive nes- 
te planeta, mas ele e muito importante, 
pois por sua orbita passam todas as na- 
ves com destino & colonia agricola do 
sistema. 

Acontece que, ha muitas eras, os 
fungos encontrados no solo desse plane- 
ta sofreram uma estranha mutacao, 



„ ./Micro 

Sistemas 



GARAIMTA 

SUA MS 

TODO MES! 



Assine hoje mesmo. Preencha o cupom 

abaixo (ou uma xerox, caso voce nao 

queira cortar a re vista): 



Nome 

Empresa 

Profissa"o/Cargo 

Endereco para remessa 

Cidade .... CEP .... Estado. . 

Assinatura Anual: 

D Micro Sistemas . . . Cr$ 79.000 



Preencha um cheque nominal A ATI Edi- 
tors Ltda., e envie para: Av. Presidente 
Wilson, 165/Grupo 1210, Centro, Riode 
Janeiro, RJ, CEP 20.030 - Tel.: (021) 
262-6306. R. Oliveira Dias, 153, Jardim 
Paulista, Sao Paulo, SP, CEP 01433 - 
Tels.:(011) 853-3574 e 853-3800. 
Seu recibo sera enviado pelo Correio. 




figura 1 — ApresentagSo 



tornando-se capazes de crescer descon- 
troladamente e a uma grande velocidade 
e espalharem-se pelo espaco, oferecendo 
o risco de destruir a orbita e causar da- 
nos as naves que por ali transitam. 

Sua funcao e justamente zelar para 
que isto nao aconteca. Voce fica em or- 
bita automa'tica ate ser detectado o 
risco de proliferacSo dos fungos. A par- 
tir dai a nave passa para o seu controle, 
sendo sua tarefa lancar ao solo uma 
caixa contendo um poderoso fungicida. 

Mas voce tern alguns problemas: o 
remedio so faz efeito se for espalhado 



sobre o foco de crescimento dos fungos, 
isto e, no ponto onde eles comecaram a 
surgir. Alem disso, os fungos pressen- 
tem a presenca do remedio, e cada vez 
que uma caixa e jogada do espaco, pro- 
curam intensificar o ritmo de prolifera- 
te Lembre-se de que voce esta numa 
orbita fixa, sem poder subir nem descer, 
e de que, por medida de economia (o 
fungicida e muito caro), voce s6 foi 
autorizado a lancar outra caixa depois 
que a primeira tiver atingido o solo. 

Se conseguir acertar o foco, voce 
vera os fungos serem destruidos um a 




2 LET N$ = ,, H2 23 24- 51 52 53 5 

4 55 55 57 55 59 82 S3 34- 35 85 
S 7 8 3 8 9 9 9 1 92" 

4 34 34 34 39 05 8h 88 88 89 88 
88 83 89 83 38 8P" 

4 FOR T=i 70 58 STEP 3 

5 POKE UPL N$(T TO T+li +155O0 
,IS*0uDE M$ CT) +C0DE M$ (7 + 1) -475 

S NEX7 7 



Listagem I 



1 REM CLAUD 10 COSTA 


190 NEXT T 


2 RAND 


195 RETURN 


5 LET C=C+ <:INKEY$ = "8" AND C<Z 




) -HNKEY$ = "5" AND C) 




7 IF INKEY$="0" AND L THEN GO 


210 CLS 




215 LET U-0 


9 PRINT AT C,C; A*; AT F, RND* IS 
;"IV";AT F,RND*22; "SV ; AT F.RND* 




225 GOSUE 390 


31; "P.""- 


2-^0 PRINT AT 5,0;" ^^^^™~ 


11 LET F=F- >RND>X) 




13 IF NOT F THEN GOTO 45 


I 


15 IF L THEN GOTO L 


' ' ' i ' 


17 PRINT AT B,K; "aa"; AT B-2,K," 
19 LET 6=6+2 


H B B 3ht> 


iTSrici Iffi] 


21 IF 6<Z THEN GOTO 5 




23 PRINT AT 21, K ;"**."; AT 21. K." 
I" .AT 20,K-1, ,% JW%" 


^LSbJ ^^^flL_Jfl 


■ "j^B 


25 PRINT AT 21 , K : "■" ; AT 20.K.-1 


IhH 


■WH 




27 IF K=Y THEN GOTO 75 




29 LET 6=4. 


245 LET S=C 


33 GOTO L 

35 LET K.=0 + 5 




37 LET X=X-.07 


255 DIM D$(24) 


39 PRINT AT 2,K; " m " 


260 LET F* = "ft"" 


41 LET L=0 


265 LET N=PEEK 16396 +256 *PEEK 1 


43 GOTO 17 




45 PRINT AT , RND*10 I F$; AT 1,R 




ND*1S.;F$; AT 2,RND*30;F$ 


275 PRINT AT 15, T; "i" 


50 G05UE 175 


280 NEXT T 


55 PRINT AT 8,6; "OS FUNGOS DBS 




TRUIRAM";TAB 7; "A 0R6ITA E TOHAR 


H-pp^-j-l^-JHI "ETTM ' ' 


AM".:TAB 8; "C0NTA DO PLANETA." 


290 IF INKEY$-:"5" OR INKEY$>"9" 




THEN GOTO 290 


A6 11, "DESPEDIDO. " 




65 IF INKEY$="" THEN GOTO 65 


300 GOSUB 380 




305 GOSUB 415 


75 PRINT AT 21,Y;CHR$ 151; AT 2 


310 LET X=0 


1,Y:CHR$ 128 


315 LET L=5 


80 IF F<=2 THEN PRINT AT 0,0, L 




$ ( TO + 2) ; A$ (3 TO ) } 


325 LET F=Z 


85 IF F;-2 THEN PRINT AT F,0; 


330 LET P-0 


90 LET E=PEEK 15393+256*PEEK 1 


335 LET Y = INT (RN04S81 +5 




340 FOP. T = l TO INT (RND*60) +30 




345 PRINT AT 0,C;A$ 


100 IF PEEK U=118 OR PEEK U=128 


350 IF NOT C THEN LET M=l 




355 IF C=Z THEN LET M=-l 


105 POKE U..151 


360 LET C-C+M 


110 LET P=P+1 


365 NEXT T 


115 POKE J, 128 


370 PRINT AT 21,Y;CHR$ 132 ; AT 2 




1*Y; "■";TAB 30; F$ 


135 LET S=S + INT (P/ C21-F) ) *10 




140 GOSUB 175 




145 PRINT AT 8 , 11 ; "PARhBENS . " ; T 




AB 6; "UOCE CONSEGUIU DETER"; TAB 




7; "A PROLIFERACAO D0S";TAB 12; "F 


395 FOR T=U TO H 


UNGOS. " 


400 PRINT L$ 


150 PRINT TAB 7; "SCORE. ";S;" P 


405 NEXT T 


ONTOS" 


410 RETURN 


155 FOR T=0 TO 60 


415 FOR T=0 TO 31 


160 NEXT T 


420 PRINT -AT 22 ,T; "1" ; TAB T; "1" 




425 NEXT T 


170 GOTO 310 


430 RETURN 


175 PRINT AT 7,0; 


500 SAUE "FUNGOS" 


130 FOR T=l TO 7 




185 PRINT TAB 4: D$ 





Listagem II 

urn, e apos limpo o espaco, receberd os 
parabens da Federa?ao Espacial, retor- 
nando em seguida A orbita automatica 



(quanto mais rapido voce agir, mais 
pontos fara). Se n2o conseguir, entre- 
tanto, a Federacao ficara compreensi- 



velmente furiosa, e alem de ter de pagar 
os prejuizos, voce sera - inapelavelmente 
despedido. 

MONTAGEM 

Digite 1 LET AS com 76 espacos em 
video inverso (graphics space). Esta 
quantidade e cn'tica: d€ um RUN e 
PRINT LEN AS para conferir. Entre 
com a listagem 1 (atencao: os espacos 
nas linhas 2 e 3 devem ser respeitados). 
Apague depois as linhas de 2 a 6, dei- 
xando s6 a linha 1 com o desenho da 
nave, e comande direto do teclado: 
POKE 16510,250. 

Entre em seguida com a listagem 2. O 
cardter graTico da linha 420 e CHRS 8 
(graphics SHIFT A). A linha 230 con- 
tem a apresentacao do programa, baseie - 
se na figura 1 para digita-la. 

O PROGRAMA 

Apos a apresenta?2o, Fungos solici- 
tara" o nivel de dificuldade (9 e o mais 
facil). As teclas 5 e 8 movem a nave; 
para lan?ar as caixas, tecle 0. Se os fun- 
gos tomarem a 6rbita, qualquer tecla 
reiniciara o jogo. ImplementagSes e 
altera?oes sao simples de fazer, pois o 
jogo foi totalmente escrito em BASIC. 
Boa sorte e. . . boa jardinagem. 

m 



Claudio Costa 6 desenhista free-lancer e tern 
por hobby a programacSo de microcomputa- 
dores. 



PREPARE-SE! 



Nossa edicao de setembro trata dos temas quentes. 



A Produgao Nacional de Software 

Reportagem que Ihe dard uma completa visao do pro- 

blema. As software-houses; os autores independentes; 

as lojas produtoras e os fabricantes falam sobre suas es- 

truturas de funcionamento e impasses na comercializa- 

gao. Veja os inumeros lados de uma questao polimica: 

SOFTWARE - o desenvolvimento; os custos; a comer- 

cializacao; a pirataria e a legislacao. 

E MUITO MAIS EM SUA MS: Especial sobre a linha 

Spectrum e sua chegada ao Brasil, alem da completa 

histdria do BASIC, a linguagem mais popular. 



NAO PERCA 



Micro 



M 



DE SETEMBRO 



Em 

todas as 
bancas 



MICRO SISTEMAS, agosto/85 



Sinclair Sinclair Sinclair sine 



Boliche 



Gil Chinellato 



Boliche foi desenvol- 
vido para dois jogado- 
res, com dez ni'veis de 
dificuldade. Totalmen- 
te escrito em BASIC, 
deve ser utilizado em 
equipamentos Sinclair 
com 16 Kb. 

O programa segue as 
regras oficiais do jogo 
de boliche : cada partida 
dura dez rodadas. Em 
cada rodada, cada joga- 
dor dispOe de duas 
bolas para derrubar os dez pinOs. Se 
derrubar todos com as duas bolas, ele 
faz um "spare", fazendo, na rodada, os 
dez pontos mais os pontos da primeira 
bola da rodada seguinte (que serao con- 
tados em dobro). Se derrubar todos os 
pinos ja na primeira bola, ele faz um 
"strike", marcando os dez pontos mais 
os pontos das "duas" bolas da rodada 




seguinte. Os pontos vao se acumulando 
e o vencedor sera - quern conseguir mais. 

Na tela aparecem a pista com os pi- 
nos e a posicSo do jogador (representada 
pela inicial do nome). Um ponto fica 
correndo de um lado ao outro da pista, 
e a mira: procure arremessar a bola no 
instante em que ela estiver na direeffo 
dos pinos. . . 



Para arremessar utilize qualquer 
tecla. Tome cuidado para a bola nSo 
cair nas canaletas laterais. micro indi- 
ca em que rodada esta a partida e de 
quern e a vez. Ao fim de cada rodada, 
pode-se consultar o placar que indica os 
pontos conseguidos por cada jogador em 
todos os arremessos ja efetuados e o to- 
tal acumulado de cada um. 

Strike ou spare sa"o marcados por 
GRAPHICS SHIFT H. Quando voce for 
consultar o placar, volte para o jogo 
apertando qualquer tecla. 

Digjte o programa prestando bastan- 
te atencao nas strings com caracteres 
grdficos e nos espacos em branco. 
Feito isso tecle RUN e boa sorte ! 



Gil Chinellato 6 engenheiro civil e utiliza um 
Sinclair ZX-81 para o desenvolvimento de 
projetos em seu escritdrio em Campinas. 



5 DIM R <S.S£) 

7 DIM 5(3) 

10 DIM 1=1$ (2, 3S) 

15 LET U=l 

20 LET U=l 

25 LET UR=1 

3 Ft PPT NT PT IS (7i ■ 



ICHE BD 



52 PAUSE 60 

35 FOR N=l TO IS 

4.0 SCROLL 

45 NEXT N 

50 PRINT AT 30,0; "ESOREUfi NO 
ME DO 1"U0GRD0R" 

55 INPUT FS 

56 IF F* = "" THEN GOTO 55 
60 PRINT AT 20. IS; "3" 

65 INPUT G$ 

66 IF G$ = "" THEN GOTO 65 

67 IF LEN F$>7 THEN LET F$=FS< 
1 TO 7) 

6S IF LEN G$>7 THEN LET G*=G$( 

1 TO 7) 

69 PRINT AT 20,0.; "DIGITE UM NU 
MERO ENTRE 1 E 10 PRRR DRR G 
RRU DE DIFICULDADE" 

70 INPUT X 

71 FRST 

72 LET X=X+7 
75 CLS 

80 LET fi=0 

51 LET B=A 
32 LET C=R 

83 LET D=A 

84 LET E=A 

85 LET F=R 
85 LET G=R 

87 LET H=fl 

88 LET I=A 



89 
90 
92 
95 

100 
110 

in 

120 

125 
RDR"; 

127 
$ 

128 
$ 

130 

,6; "8 



LET J=R 

LET J06=l 

FRST 

PRINT AT fl,0; 

FOR N=l TO 20 
PRINT RT N,0; ", 



IT ;RT N,14, 



NEXT N 

PRINT RT 0,20; W/2+.5; "■ ROD 

RT 2,20, "UOGR" 

IF U = l THEN PRINT RT 3,20.;F 

IF U=3 THEM PRINT RT 3. 30; G 



PRINT RT 1,5; "| 
I i 1";RT 5,7; "I 



1 i 1" J RT 3 
I"; AT 7,3; " 



135 PRINT RT ., ; "| 
^^B", RT 21,0; " 

137 5L0U 

14.0 LET P = INT (14*RND) 

150 IF P<:3 THEN GOTO 140 

160 IF U=l THEN PRINT RT 31.P-1 
; " ";0HR$ (13S+C0DE F$(l));" " 

165 IF U=2 THEN PRINT RT 31..P-1 
.; •• ";CHR$ (128+CODE G$(l))," " 

170 FOR N=3 TO 13 

180 PRINT RT X,N; ". " 

200 IF N>3 THEN PRINT RT X,N-1; 

205 IF INKEY*< >•"• THEN GOTO 2S0 

210 NEXT N 

230 FOR N=13 TO 3 STEP -1 

230 PRINT RT X,N; " . " 

250 IF N<:13 THEN PRINT RT X,N + 1 

'255 IF INKEY$< >'•" THEN GOTO 280 

260 NEXT N 

270 GOTO 170 

230 LET R=0 

300 FOR Y=20 TO STEP -1 

310 LET Z=P + INT (R* (N-P) / (Sl-X) 
) 



312 IF Z<=2 THEN GOTO 900 

313 IF Z>=14 THEN GOTO 950 

315 IF Y<30 THEN PRINT RT Y + l.P 
+ INT ( (R-l) * (N-P) / (21-X) ) ; " " 

330 PRINT RT Y ,Z; "0" 

340 LET KK=1100* !Y=5) +1300* (Y =3 
i +1400* (Y = l) +1000* (Y=7 AND fl=0i 

350 IF KK THEN GOTO KK 

500 LET R=R+1 

510 NEXT Y 

515 LET T=fl + B + C+D+E+F + G + H + I+.J 

530 IF JOG =3 THEN GOTO 610 

530 PRINT RT 5 , 30 ! "DERRUBOU" ; RT 

6,30;T 

540 LET TP=T 

550 IF TP=10 THEN GOTO 580 

560 LET J0G=S 

570 GOTO 135 

530 PRINT RT 1 , 6; "STRIKE" 

590 GOSUB 300 

600 GOTO 650 

610 PRINT RT 5,32;"+ ";T-TP;" + 

";T 

630 IF T=10 THEN PRINT RT 1,8;" 
SPARE" 
630 LET .J0G = 1 
640 GOSUB 300 

650 PRINT AT 16 , IS ; "DIGITE: " 
655 IF i.J;19 THEN PRINT RT 13,18 



660 IF UU=19 THEN PRINT RT 18,1 

8; C ; RT 19, 18; "PARR CONTINU 

RP " 

570 IF U=l THEN PRINT RT 31,18; 
1 p"" p ,. pLflCflR" 

680 IF INKEY$="C" THEN GOTO 75 
690 IF INKEY$="P" THEN GOTO 150 







700 GOTO 680 

300 LET A (U.U) =TP 

810 LET ACU.U + l) =T-TP 

830 LET U=U+UR 

830 LET UR=-UR 

340 IF U = l THEN LET U=U+3 

850 RETURN 



900 PRINT RT Y,3;"0";flT Y+1,3," 


1S60 


IF (E=0 AND 1=0 AND Z>=7 AN 


"; RT , 19; " " 


1 


D Z< = 


=8) OR (F=0 AND 1=0 AND Z>=1 


1700 PRINT RT 0,5;F$;flT 0,15;G$ 


910 GOTO 510 


AND Z<=11) THEN LET 1=1 


1710 FOR N=l TO 34 


950 PRINT AT Y,14;"0";RT Y+1,13 


1270 


IF (F=0 AND J=0 RND Z > =9 AN 


17S0 PRINT RT 1,N;"1" 


; " 1 


D Z<- 


:10) OR (E=0 RND U=0 RND Z=7 


1730 NEXT N 


960 GOTO 510 


AND 


RND<.5) THEN LET J=l 


1740 FOR N=l TO S0 


1010 IF B=0 AND Z>=8 AND Z < =9 TH 


1375 


IF D=0 AND Z>=5 AND Z < =7 TH 


1750 LET fl$(l,N)=STR$ fl(l,N) 


EN LET B=l 


en Lirr D=l 


1760 LET R$(S,N)-STR$ fl(3,N) 


1030 IF 0=0 AND Z>=7 AND Z<=8 TH 


1S30 


IF E=0 AND Z>=7 AND Z < =9 TH 


1770 NEXT N 


EN LET 0=1 


EN LET E=l 


1775 SLOW 


1030 IF G=0 AND Z=8 AND RND < . 7 T 


1S8S 


IF F=0 AND Z>=9 AND Z<=11 T 


1730 FOP N=l TO U-3 STEP 3 


HEN LET G=l 


HEN LET F=l 


1790 FOR M=l TO S 


1040 IF .J = AND Z=8 AND RND < . 7 T 


1390 


IF D=l THEN PRINT AT 3,6," 


1300 IF R (M.N) =10 THEN GOTO 1900 


HEN LET U=l 






1810 IF fl(M,N) +R(M,N+1) =10 THEN 


1050 IF D=0 AND Z=8 AND RND < . 7 T 


1300 


IF E=l THEN PRINT RT 3,8;" 


GOTO 1950 


HEN LET D=l 






1330 LET S (M) =5 (M) +fl (M,N) +A (M,N + 


1060 IF F=0 AND Z=8 AND RND <: . 7 T 


1310 


IF F=l THEN PRINT RT 3,10;" 




HEN LET F=l 






1830 NEXT M 


1069 IF Z>=7 AND Z < =9 AND A=0 TH 


1330 


GOTO 500 


1340 PRINT RT N+3 , 6; fl$ ( 1 , N) ; " "; 


EN LET A=l 


1400 


IF G=0 AND Z>=4 AND Z < =6 TH 


A* (1 .N + l) ; AT N+3, 10:5(1) 


1070 IF A=l THEN PRINT AT 7,8;" 


EN LET G=l 


1850 PRINT RT N+3 , 16; A$ (3 , N) ; " " 




1410 


IF H=0 AND Z>=6 RND Z < =3 TH 


; A$ (2,N + 1) ; AT N+3,30:S(S) 


1080 GOTO 500 


EN LET H=l 




11S0 IF (B=0 AND D=0 AND Z > =7 AN 


1430 


IF 1=0 AND Z>=8 AND Z<=10 T 




D Z<=8) OR (0=0 AND D=0 AND Z<=1 


HEN LET 1=1 




AND Z>=9 AND RND<.5) THEN LET 


1430 


IF J=0 AND Z>=10 AND Z<=13 


1870 IF U=31 AND S(1)<S(3) THEN 


D = l 


THEN 


LET J=l 


PRINT RT 30,35; G$ 


1140 IF (B=0 RND E=0 AND Z > =6 AN 


1440 


IF G=l THEN PRINT AT 1,5;" 


1875 IF U=31 AND S(l)OSO) THEN 


D Z<=7) OR (0=0 AND E=0 AND Z > =9 


" 




PRINT AT 31 .35; "UENCEU" 


AND Z<=10) THEN LET E=l 


1450 


IF H=l THEN PRINT AT 1,7;" 


1877 IF U=31 AND S(1)=S(3) THEN 


1150 IF (0=0 AND F=0 AND Z > =3 AN 






PRINT RT 31 .35; "EMPflTE" 


D Z<=9) OR (B=0 RND F=0 AND Z > =6 


1460 


IF 1=1 THEN PRINT RT 1,9," 


1830 IF INKEY*="" THEN GOTO 1880 


AND Z<=7 AND RND<.5) THEN LET F 


" 




1890 IF U=31 THEN STOP 


= 1 


1470 


IF J=l THEN PRINT RT 1,11;" 


1895 GOTO 75 


1170 IF B=0 AND G=0 AND Z=7 THEN 






1900 LET R$ (M,N) -"i" 


LET G=l 


1430 


GOTO 500 


1910 LET fl$ (M.N+1) -"l" 


1180 IF 0=0 AND J=0 AND Z=9 THEN 


1500 


FRST 


1930 LET 5 (Mi =S (M) +fl (M.N) +R (M,N + 


LET J=l 


1503 


CLS 


1) +fl (M..N+S) +fl (M..N + 3) 


1185 IF B=0 AND Z > =6 AND Z < =3 TH 


1505 


LET 5(1) =0 


1930 GOTO 1830 


EN LET B=l 


1510 


LET SO) =0 


1950 LET fl* (M..N + 1) ="i" 


1187 IF 0=0 AND Z;=S AND Z<=10 T 


1540 


FOR N=0 TO 34 


I960 LET S (M) =5 (M) +fl (M,N) +fl (M,N + 


HEN LET 0=1 


1560 


FOR M=4 TO 30 STEP 3 


1) +fl (M .N+S) 


1190 IF B=l THEN PRINT AT 5,7;" 


1570 


PRINT RT M,N; "-" 


1970 GOTO 1830 




1580 


NEXT M 




1195 IF 0=1 THEN PRINT AT 5.9;" 


1590 


NEXT N 






1600 


FOR N=0 TO 31 




1197 GOTO 500 


1610 


PRINT RT N,0; "■" :RT N,4;"i" 




1330 IF (D=0 AND G=0 AND Z>=6 AN 


;AT N,9;"|";AT N,14;"|";AT N,l9; 




D Z<=7) OR (E=0 AND G=0 AND Z=9 


" |" ; AT N,S4; "■" 




AND RND<:.5) THEN LET G=l 


1615 


IF N<=10 THEN PRINT AT N*3+ 




1350 IF (D=0 RND H=0 AND Z > =5 AN 


1,3; N 




D Z<=6) OR (E=0 AND H=0 AND Z > =8 


1630 


NEXT N 


■ 


AND Z<=9) THEN LET H=l 


1630 


PRINT RT 0,1; "ROD"; RT 0,9;" 


m 



Boliche 




Faz a Follui de Pagumcnio de sua empresa, 
emiiindo relulorios eomo Guia de I A PAS, 
Quia de FGTS, Relacao de Empregadox, 
Relacao para I.R.. Relacao para Banco, 
in/bmie de Rendinienios, Acuimilados 
Anaai.s. RA/S e Reciho de Pagamenio. 
A folha pode ser semanal ou nwnsal. 
As labelas sdo niodijhadas pelo proprio 
usudrio. 

Permiie lambent, adianiamenios de saldrio, 
reajusie salari'al, alieracoes de acunndados e 
oulras funcoes que agffizem o processamenio 
da Folha de Paganiento da empresa. 



A Conlahilidade de um mes em 2 Moras! 
Fsle Sisiema permiie o cadastramenlo de 
hisidricos padronizados e de piano de contas 
com ale 5 niveis. 

Emile Didrio, Razao, Balanceie, Balanco, 
Demonslracao de Resullados. Demonslracao 
de Fucros e Prejuizos acumulados. Lislagem 
por ceniro de cusio e exiraio de conlas, enire 
ouiras funcoes. 



Conlrola o esioque de ilens com 

Fspecijicacao, Esioque Minima, Unidade, 

Fornecedor, l.ocalizacao e ouiras 

informacdes relacionadas no item como 

Cusio Medio, Eniradas e Saidas no periodo, 

etc. 

Fornece i.isiagens Geral e Partial dos 

produios, Lislagem Fisico- Financeira, 

Lislagem dos produios ahai.xo do esioque 

minima, Lisia de Precos e Eliquelas. enlre 

ouiras. 

Admiie lamhe'm. Reajusie de Precos, 

Alleracdo de Dados e Exclusao de Produios. 



Compativeis com as linhas TR5-80 e Apple. 



r 



*-JA ' [?" ^11^" ■' Av. Rio Branco, 45 - sola 1.311 
/1/tefflQ/ Rio de Janeiro - CEP 20. 090 

Um jeito fdcil de resolver Tels. : (021 J 263- 1241 e 233-0615 
os problemas de seii computador. 



> 



Estaremos presentes na Feira de Informdtica da SUCESU 

— de23a 29 de setembro em Sdo Paulo, no Pavilhcio 

Anexo do Anhembi. Visite-nos. 



66 



MICRO SISTEMAS, agosto/85 



J.^ 



iniciante 



Saiba como e feito o armazenamento de dados, 

e os cuidados que devem ser tornados com 

fitas, disquetes e outros dispositivos 

Pierluigi Piazzi 



O armazenamento 

de dados 



Avelha piada do computador 
portugues, que nao tinha me- 
moria mas apenas uma "vaga 
lembranca", surgiu numa epo- 
ca em que so existiam mdquinas de gran- 
de porte e extremamente confiaveis. 
que o usudrio principiante desconhe- 
ce, e que houve nestes ultimos anos 
um "retrocesso tecnologico" na area de 
computaca"o, de tal forma que a antiga 
piada se aproxima cada vez mais da 
verdade. Quern ja* brigou com um dis- 
quete recalcitrante (abominacao extre- 
mal) ou se desesperou com um gravador 
cassete, sabe do que estou falando. 

Nesta altura, muitos leitores acostu- 
mados com as mordomias de um pro- 
gresso constante, devem estar ihtrigados 
com a expressffo "retrocesso tecnol6gi- 
co". Como assim?! A ciencia na"o esta 
produzindo cada vez mais maravilhas? 
Realmente esta, mas as leis da economia 
sa"o mais fortes que a busca da sofisti- 
caca"o. Atualmente, por exemplo, esta"o 
sendo projetados avi5es a hdlice muito 
mais lentos que o avancadissimo Con- 
corde, mas tremendamente mais econo- 
micos. 

A verdadeira revolucao da Informlti- 
ca comecou quando se colocou a dis- 
posica"o do grande publico a tecnologia 
rudimentar, porem mais barata, do mi- 
crocomputador. Esse microcomputador 
tem duas tare fas a realizar: o processa- 
mento e o armazenamento de dados. 

Como processador, ele se incumbe 
muito bem do en cargo: o micro mais 
barato que voce pode encontrar no mer- 
cado realiza operacOes logico-aritmiticas 
com uma eficiencia espantosa, incompa- 
ravelmente melhor que a de qualquer 
maquina de calcular "cientifica" ou 
"financeira". grande problema esta 
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no armazenamento de dados e na tec- 
nologia das memorias. Elas podem ser 
divididas, basicamente, em duas grandes 
categorias: as eletronicas e as eletro- 
mecanicas. 

AS MEMORIAS ELETRONICAS 

A unidade mais elementar de infor- 
macao e o bit que pode assumir apenas 
dois estados, normalmente representa- 
dos pelos algarismos e 1. A maioria 
dos microcomputadores a venda no Bra- 
sil e acessiveis ao grande publico usa 
processadores que trabalham com se- 
qiiencias de 8 bits, denominadas bytes. 
Um milheiro de bytes (a rigor 1024) e 
chamado de quilobyte, ou abreviada- 
mente Kb. As mem6rias eletronicas 
armazenam os bytes, com os quais o 
micro opera, em circuitos eletronicos, 
permitindo assim uma grande velocidade 
de leitura. 

Estes circuitos podem ser divididos 
em duas grandes categorias: as RAMs e 
as ROMs (acronimos infelizes de Ran- 
dom Acess Memory e Read Only Me- 
mory, consagrados porem pelo uso). 
Para melhor entende-las, o leitor deve 
imaginar a RAM como um quadro- 
negro escolar, no qual ele pode escrever 
e apagar a vontade. unico defeito e 
que, ao terminar a aula, vem um bedel 
que apaga tudo: a RAM do micro e 
volatil, ou seja, ao desligarmos o compu- 
tador seu conteudo 6 perdido. 

Existem RAMs na"o volateis, que 
mantem a informacao mesmo desligan- 
do-se a maquina. Seu custo porem e 
ainda muito elevado: 6 por este motivo 
que uma HP 41C, por exemplo, custa o 
quadruplo de um TK-85, computador 
muito mais completo e eficiente (mas 
na"o volatil). 



preco de um micro e muito influ- 
enciado pela capacidade de sua RAM. 
Num processador de 8 bits, o tamanho 
mdximo da RAM acessavel diretamente 
e de 64 Kb. A ROM, ao contrario, nao e 
voldtil. Na realidade, ela e compara- 
vel a um livro que ja vem com todas as 
informagoes impressas, podendo ser li- 
do, mas nao apagado. Todos os micros 
vem da fdbrica com uma ROM pre-gra- 
vada contendo as informacSes do siste- 
ma operacional e algum interpretador 
(normalmente o BASIC). Os cartuchos 
de vfdeo- games (ta"o impropriamente 
chamados de fitas) sa"o, na verdade, 
ROMs, verdadeiros circuitos eletronicos 
pre-gravados e nao passiveis de altera- 
9oes. 

Existem ainda as PROMs, ROMs pro- 
gramaveis que seriam andlogas a cader- 
nos, nos quais o usuario pode escrever 
com uma caneta. Podem ser gravadas 
em cam (os hobbistas dizem: queima- 
das) com equipamento especial, mas nao 
podem ser apagadas. As EPROMs e 
que podem ser apagadas, mas tambem 
exigem um equipamento especial, nor- 
malmente na"o disponivel para o simples 
usuario. 

AS MEM6RIAS 
ELETROMECANICAS 

Essas memorias nao sa"o constitutors 
por circuitos eletronicos, sendo conse- 
qiientemente de acesso mais lento. Em 
compensacao, permitem o armazena- 
mento de uma quantidade virtualmente 
ilimitada de bytes. Obviamente sua lei- 
tura s6 pode ser feita em blocos de di- 
mensOes limitadas pela capacidade de 
cada micro. 

Elas sa"o constitufdas, principalmen- 
te, por fitas e discos magneticos. Exis- m 
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PROGRAMAS PARA CP-400 
COLOR 64-TRS-80 COLOR COMPUTER 

A MICROMAQ, o mais tradicional revendedor de software para a linha TRS-80 
COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 
a disposicao dos usuarios o maior catalogo de programas para esta linha. 



M 



J0G0S DE ACAO EM LINGUAGEM DE MAQUINA 




204 Sanctum: (32K) exorcize o demdnio - em ingles. 


25.000 






205 Star Trader - mercador das galaxias. 


30.000 


101 Cuber (32K) ajude o cuber a enfrentar os inimigos enquanto a piramide muda 
decor. 

1 02 Trapfall: (1 6K) enfrente as armadilhas (Pitfalls) na caca ao tesouro. 


20.000 
25.000 


206 Midle Kindgton - recupere os tesouros na catacumba. 


30.000 


JOGOS EDUCATIVOS 




103 Jr. Reverenge: (32K) ajude Jr. a salvar seu pai do terrivel Luigi. 


25.000 






1 04 8-Ball: (1 6K) para os amantes do jogo de bilhar. 


25.000 


30 1 Jogos Educativos: ( 1 6 K) serie de nove jogos educativos para criangas de 3 a 6 anos 




1 05 Tenis: (32K) para os amantes do jogo de terns. 


25.000 


abrangendo figuras. letras, nomes, niimeros, soma, subtragao e desenhos colo- 




1 06 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrez. 


30.000 


ridos. 


50.000 


107 Sea Dragon: (32K) emogao e suspense sob as aguas. 


20.000 


302 Matematica: (16K) ensina as quatro operacoes tesicas em vartos niveis de 




108 Tubarao: (16K) um jogo para quern tem nervos de ago. 


20.000 


dificuldades. 


30.000 


109 Vegas: (32K) sinta-se num cassino-caga-niquel, cartas, loto, dados e 21 . 


20.000 


303 Memoria: (1 6K) e o jogo classico da memoria, duas figuras iguais. 


30.000 


110 Pic nic: (32K) ajude a formiga a estocar alimentos. 


25.000 


304 Figuras Magicas: (1 6K) associagao de figuras e cores de seis maneiras dilerentes. 




1 1 1 Moon Shutle: (32K) deslrua o principe das trevas. 


25.000 


Para criangas de 3 a 6 anos - manual em ingles. 


40.000 


112 Zaxxon: (32K) enlrente os perigos de uma platalorma espacial para destruir o 




305 Letras Magicas: (1 6K) ajude o bicho-papao a comer as letras certas. Para criangas 




rood Zaxxon. 


25.000 


de 3 a 6 anos - manual em ingles. 


40.000 


1 1 3 Pooyan: (32K) defenda o seu vale da invasao dos lobos. 


25.000 


306 Niimeros Magicos: (1 6K) ajude o Graver a brincar com os niimeros. Para criancas 




1 1 4 Frog: (32K) ajude o sapo a atravessar a rua e o rio. 


20.000 


de 3 a 6 anos - manual em inglfis. 


40.000 


1 1 5 Jet-I: (1 6K) viva as emocOes do filrne Retorno de Jedi. 


20.000 


307 Correio Eletronico: ( 1 6 K) ajude o Big Bird a entregar as correspond&ncias nos luga- 




116 Androide: (32K) elimine os androides e saia do labirinto. 


20.000 


res certos. Para criangas de 3 a 6 anos - manual em ingl§s. 


40.000 


1 1 7 Astro-Blast: (32K) batalha espacial. 




308 Caga as Estrelas: (1 6K) jogo estrategico. Voc6 tem que pegar as estrelas no ceu. 




1 18 Passaros: (16K) elimine os passaros invasores. 




Para criangas com mais de 7 anos - manual em ingles. 


40.000 


119 Buzzard Bait: (32K) ataque os passaros com sua lanca 


20.000 






1 20 Candy Co: (32K) coma doces e vitaminas para eliminar os inimigos. 


25.000 


APLICATIVOSCOMERCIAIS 




121 Cashman: (32K) pegue o dinheiro e elimine os gatos (99 telas). 


25.000 






122 Clowns'. (32K) lure os balOes saltando na cama elastica. 


25.000 


401 WRITTER II: (32K) editor de texto com as seguintes caracteristicas: linha de ate 




123 Cosmic: (1 6K) futebol americano com naves espaciais. 


20.000 


240 caracteres na impressora e 51 colunas na tela. Capacidade para imprimir 




1 24 Cpede: (1 6K) mate a centopeia e a aranha. 


20,000 


caracteres Portugueses ou simbolos especiais (ate 1 0). Paginagao automatica. 




125 Demon Seed: (32 K) destrua passaros, sementes e a nave. 


25.000 


Centralizag3o automatica. Manual em ingles com 90 paginas. 


130.000 


126 The King: (32K) salve a princesa raptada pelo King Kong. 


20.000 


402 Elite-Calc: (1 6K) planilha eletronica com as seguintes caracteristicas: ate 255 li- 




127 Firecopt: (32K) apague incendios e elimine incendiarios. 


20.000 


nhas e colunas. Manipula textos, niimeros, operadores matematicos, fungfies trigo- 




128 Doodle Bug: (32K) estilo Pacman. 


25.000 


nometricas e fungdes estatisticas (maximo, minimo, media). Emite graficos e 




129 Fury: (32 K) batalha aerea. 


20.000 


permite ordenar colunas e linhas. Manual em ingles e portugues - 20 p. 


90.000 


130 Gallax Attack: (16K) batalha espacial. 


20.000 


403 Color File: (16K) banco de dados que permite manipular 7 arquivos pre-definidos 




131 Gllaxxons:(16K) batalha espacial. 


20.000 


(enderegos,despesas, investimentos...). Voc6 tambem pode definiros seusprdprios 




132 Gobbler. (16K) tipo Pacman. 


20.000 


arquivos com campos alfabeticos ou numericos. Manual em inglfis com 10 




133 Grabbler: (32K) delenda-se dos inimigos em um duplo labirinto. 


20.000 


paginas. 


70.000 


134 Grand Prix: (32K) corrida de carro. 


20.000 






135 Kron: (32K) 4 jogos dilerentes em um. 


20.000 






136 Lunar (32K) venga os obstaculos durante um passeio de Jeep na lua. 


25.000 


UNGUAGENS 




137 Mudpies: (32 K) atire tortas e detenda-se dos cozinheiros. 


20.000 






138 Pedro: (32K) delenda o jardim dos animais. 


20.000 


501 Edtasm: (16K) Linguagem Assembler para o 6809 - Ml. 


100.000 


139 Pinball: (32K). 


20.000 


502 Forth: (1 6K) Linguagem Forth para o 6809 - Ml. 


80.000 


140 Polaris: (32K) defenda os submarinos do ataque aereo. 


20.000 


503 Logo: (32K) Linguagem educativa logo- Ml. 


120.000 


141 Draconia: (32 K) salve os prisioneiros do espago e (uja do dragao. 


25.000 


504 Pascal - Linguagem Pascal. 


100.000 


142 Bag-Man: (32K) roube o ouro e (uja dos mineiros. 


25.000 






143 Tut's Tomb: (32 K) enlrente os perigos de uma caverna em busca do tesouro. 


25.000 


UTILITARIOS 




144 Willy's: (32K) transporte os niimeros de um lado para outro sem ser derrubado. 


20.000 






145 World's of Flight (32K) simulador de vfjo. 


30.000 


60 1 Color Kit: (32K) utilitario em Assembler que complementa o Color Basic com mais 




146 Mega Bug: (16K) (uja das baratas em um labirinto. 


25.000 


de 30 fungdes para facilitar a programagao em Basic ou linguagem de maquina. 




147 Bandits: (32K) caca ao tesouro em tre"s mundos dilerentes e 300 variagdes 




Manual em ingltis com 30 paginas. 


90.000 


dejogo. 


25.000 


602 Stripper: (16K) utilitario que permite compactar programas em Basic eliminando 




148 Poltergeist: pegue os objetos para Carol Anne. 


25.000 


brancos, comentarios e concatenando linhas. 


50.000 


149 Double Back: contorne as figuras sem esbarrar. 


25.000 


603 Tiny Compiler: (1 6K) utilitario que permite compilar a maioria dos comandos Basic 




150 Storm Arrows 


25.000 


e extended Basic. Manual em ingles 


90.000 


151 Time Fighter: venca os inimigos no tunel do tempo. 


25.000 


604 Super Screen: ( 1 6K) aumenta o tamanho da tela Color passa a trabalhar com 57 




152 Super Pac II: estilo Pac Maa 


25.000 


colunas e 24 linhas. 


50.000 


153 Speed Race: corrida de carro. 


25.000 


605 Disassembler: (16K) disassemblador de programas em linguagem de maquina. 


50.000 


154 Fly Tiger 


25.000 


606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lin- 




155 Ice Hockey: partida de Hockey. 


25.000 


guagem de maquina. Manual em ingles. 


60.000 


156 Out House: defenda seu dinheiro dos ladrOes. 


25.000 


607 Banner: programagao de letreiro. 


60.000 


157 Packmaze: estilo Pac Maa 


25.000 


609 Cores 9: Editor Assembler. 


80.000 


158 Pac-Tac: estilo Pac Man. 


25.000 


61 1 Magic Box: convene programa de Basic TRS 80 p/TRS 80 Color. 


90.000 


1 59 Robatron: destrua os robfis inimigos. 


25.000 






160 Tempest 


25.000 


SOFTWARE DE COMUNICACAO 




161 Protetor: aventura espacial. 


25.000 






162 Venturer 


25.000 


71 1 Color Terminal: (1 6K) software de comunicagao para o projeto CirandSo. Aruanda e 




163 Defense: defenda suas bases. 


25.000 


Bancosde Dados Particulares.Transmiteerecebe arquivos em Basic ou linguagem 




164 Quicx: preencha 75% de tela sem ser alingido. 


25.000 


de maquina. BAUD RATE de 1 10 a 9600 em DUPLEX/HALF/FUL/ECHO. Ta- 




165 Smurf: passeio na floresta 


25.000 


manho da palavra: 7 ou 8 bits. Paridade par, impar ou nenhuma Stop Bits de 1 a 9. 




166 Decathlon: 10 provas olimpicas. 


25.000 


Manual em ingles com 30 paginas. 


140.000 


167 Color Car. corrida de carro. 


25.000 






JOGOS DE AVENTURA COM ALTA RES0LUCA0 GRAFICA 




NOVIDADES 




201 Calixto: (32K) ajude o arquedlogo (prol. Lagarto) a recuperar o tesouro - 




901 Composer: gerador de miisica. 


80.000 


em inglfis. 


25.000 


902 Voice: gerador de som. 


60.000 


202 Sea-Quest: (32K) recupere o tesouro perdido - em inglfis. 


25.000 


903 New Talk - gerador de som. 


80.000 


203 Shennan: (32K) encontre o tesouro no fim do arco-iris - em inglfis. 


25.000 


904 Miisica 2 - gerador de miisica. 


90.000 



TABELA 




* DEDESCONTO 


* 


at6 65.000 - sem desconto 


de 66.000 ate 11 5.000 


5% 


de 1 1 6.000 ate 1 65.000 


10% 


del 66.000 ate 2 15.000 


15% 


acimade 21 6.000 


20% 



MICROMAQ 



Desejo receber os seguintes programas pelo(s) qual(is) pagarei a quantia de Cr$ - 



PROGRAMAS:. 

NOME: 

END.: 

CIDADE: 



UF.:. 



.CEP: 



Para tal, estou enviando um cheque nominal a ATI Editora Ltda., Av. Presidente Wilson, 1 65- Grupo 1210 
Centro.CEP 20.030 - Rio de Janeiro - R J Despesas de Correio inclufdas. 



Rua Sete de Setembro,92-Lj. 106 -Tel.: (021) 222-6088- RJ 



MICROMAQ 



O ARMAZENAMENTO DE DADOS 



Cuidados com as gravacoes em fita 



1) Utilize sempre o mesmo 
gravador, com contador e ajuste 
de tonalidade (graves e agudos). 
Melhor ainda e utilizar urn unico 
canal de um gravador estereo. 

2) Verifique se a cabeca de 
gravacao estd limpa e desmagne- 
tizada. 

3) Verifique o ajuste do azi- 
mute da cabega que e feito por 
um pequeno parafuso do lado 
esquerdo (figura 1). Em alguns 
gravadores id existe um furo para 
acessd-lo com uma chave de fen- 
da. Em outros, o furo deve ser 
aberto com uma furadeira. Po- 
nha o programa para rodar e 
ouga-o! Girando o parafuso do 
azimute de um lado para outro 
voce deve achar um ponto de 
estridencia maxima. Esse e o ponto de ajuste. 

4) Use fitas de boa qualidade e curtas (C-20), para gravar seus dados. 

5) Evite trabalfiar em lugares com muita poluicao eletromagnetica (muitas 
lampadas fluorescentes, motores eletricos, antenas de radio transmissdo, 
etc.). 

6 J Rogue suas pragas com enfase e conviccdo pois isto frequentemente 
intimida o gravador e o micro. 




Figura 1 - Cabega de gravador cassete vista de 
cima 



tern outros dispositivos, como discos 
laser, discos comuns (tipo long-play), 
fitas de video, etc., mas nao os discu- 
tiremos, pois ainda nao sa"o usuais no 
nosso meio. 

As fitas cassete utilizam um gravador 
comum (normalmente do tipo porta- 



til) e sao a maior fonte de desespero de 
quern tern um micro que as utiliza. Al- 
guns cuidados simples, porem, podem 
reduzir estas dores de cabeca (veja box). 
Um dos problemas mais criticos do 
armazenamento de dados em fita magne- 
tica consiste no fato de que eles sa"o li- 




Figura 2- 
Esquema 
de diskette 
de5 114" 



70 



dos de maneira seqiiencial, dificultando 
tremendamente o processo de busca. 
Uma fita menos problemdtica e a do 
MICRO -DRIVE, sistema usado pelo 
ZX- SPECTRUM (compativel no Brasil, 
com o TK-90-X). Trata-se de uma fita 
sem fim (loop) de acesso rapido e alta 
confiabilidade. 

De qualquer forma, quern ja procu- 
rou uma musica numa fita e num disco 
sabe que o acesso e muito mais rapido 
neste ultimo. Os discos usados em mi- 
cros tern suas informacoes gravadas 
nao em sulcos, mas em trilhas magneti- 
cas divididas em setores (figura 2). 

Os discos podem ser n'gidos, com 
grande capacidade de armazenamento 
e exigindo equipamento caro e sofistica- 
do, ou flexiveis (floppy disk). Destes, 
o mais popular e o de 5 1/4", muito 
usado, por exemplo nos computadores 
compativeis com o TRS-80 e Apple. 

Mesmo o disquete de face simples, 
recebe uma camada de material magne- 
tico dos dois lados mas, ao sair da fabri- 
ca, e testado de um lado so. Sua capa de 
protecao recebe um entalhe na lateral 
que permite a gravacao da face testada. 
Se quisermos evitar gravacSes posterio- 
res, devemos tampar o entalhe com fita 
adesiva. 

Existem maquinetas que permitem 
cortar o outro entalhe locahzado na 
outra lateral, transformando o disco 
de face simples num de face dupla. 
Devemos, porem, ter sempre em mente 
que esta segunda face e menos confiavel. 

A "vitrola" que toca estes discos e 
o disk -drive, equipamento as vezes mais 
caro que o pr6prio computador, porem 
indispensavel para quern quer dar uma 
aplicacao mais profissional ao seu micro. 

BACK-UP 

A lei de MURPHY: "Se algo tern a 
mais remota chance de dar errado, certa- 
mente dar<i errado!", foi criada humoris- 
ticamente nos primordios da eletronica 
mas encontrou seu campo de plena apli- 
cacao na drea da Informdtica. Por isso, 
todos os dados armazenados em disposi- 
tivos eletromecanicos devem ser perio- 
dicamente copiados (back-up) e armaze- 
zedos em locais ao abrigo de umidade, 
saltos de temperatura e, principalmente, 
interferencias eletromagneticas. 

Outro cuidado importante refere-se a 
qualifica?2o das pessoas que ira"o mani- 
pular estes dados armazenados. Medite 
sempre sobre o milenar ditado hebraico: 
"Quando um tolo joga uma pedra 
n'agua, nem dez sabios conseguem en- 
contraMa". _ 



Pierluigi Piazzi 6 formado em Qui'mica e Fi'si- 
ca pe/a USP, ex -professor do curso Anglo 
Vestibulares e ex-diretor editorial da Revista 
Microhobby. Atualmente 6 diretor da Aleph 
Publicacdes. 
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Syp/y . 




x acessonos 



Excesso de perfeicao e isto. 





E pr&ciso muilo inveslimerno em 
pesquisas para alcangar a tecnoiogia 
da Verbatim. 

O mundo todo sabe e usa seus 
produtos, porque confia na qualidade 
e no desempenho 100% livre de er ros 
dos disquetes, testados urn a um e 
unicos a excederem as rvormas padrSo. 
Com as fitas magnelicas Verbatim. 



o mesmo padrao leenologico 6 exigido, 
manterxJo assim, um desempenho 
muito acima da concorrencia. S^o as 
unicas com garanlia total de 5 anos, 
contra qualquer defeito de fabricacao. 
Junte-se todas essas vantagens e, 
ten ha em maos, os produtos mais 
perfeitos. produztdos no Brasil pelo 
maior tabricante mondial de disquetes. 



CeMialOR lnla»rnat;0es ViNtHlm 

Pii'a us demats ctdades do pjts. diMjoe |UM| soa j.i i & 
tftcuui.CUuMzifqiuilquiT du\id;i. car^PCCXftW FWMtfV 
«j»1f ipiwJotn* c Mo Kiija a iiqai?»o 



k 



Ti \ferbatim 




I aoessQnos 



4\rDn* Suprimentos para 

"'V'l-'® Processamento de Dados Ltda. 



MAIS DE 200 ITENS EM ESTOQUE 
PARA PRONTA ENTREGA 

Sao Paulo: Rua Min. Ferreira Atves, 609 

Tel. (011) '263-6644 (SeqtiGncial) - CEP 05009 

SP- Telex (01 1)38045 



USE EM SEU MICRO 

OOTRPE 

A FITA DO CASSETTE 



Q Q 



OCITRPE 20 



TAMANHOS C5' C1CT C15' 
C20' C30 1 E OUTROS. 



FABRICADO POR 

ALBAMAR ELETRONICA LTDA. 

Rua Conde de Leopoldina, 270-A 

S. Cristbvfio — RJ — CEP: 20930 

Tels.: (021) 580-6729/580-8276 



Micros 




O "PACOTAO" OFERECE: 



* Software 

* Assistencia 



tecnica 

IBM/PC, 
XTeAT 

* Suprimentos 

* Acessdrios 

peri feri cos 



#&* 



#&** 





CA=tOAD 



Rua Luiz Go4s, 1 894 — Sao Paulo 
CEP 04043 - Telex: (Oil) 37755 DTRD 



HilMk 




• Microcompu (adore* Fewoais e Profissionais, Software, Suprimentos e Curses 

• Fmanciamento em ate 18 meses sem entrada. e os preqos mais baixos do mercado 

• Atendimento perfeitct profissionais treinados e habilitados para dar a voce a certeza de um bom Investimenlo 



Apple • IBM 
rKS-flO Color • Impressoras 



EQUIPAMENT0Srsr linte;TRS8 ° 

Q f\ F T\ A /A Q C Nacionais e Importados mais de 2.000 
Ovl I V V/~\M L programas e jogos de todas as Irnhas. 



CURS0S 



Basic • Baiic Avangado 
eDOS. 



OUT nllVION I WO • Fitas ■ Mesas • Etiquetas ■ etc 



Av. Ataufo de Paiva, 566 - sobreloja 211 e 202 - Rio de Janeiro - R.J. - Tels.: (021) 239 2798 e 511 0599 



Se o assunto e Informatica... 
em Fortaleza procure a Tele micro 



• comercializacSo de micros 

• assist&ncia tecnica 
autorizada 

• perltericos 

• suprimentos 

• interface e placas 



l \* 



TCLCIMCJIt 



«li"»»«:< COV**!* I IHUMiM lIU 



• components eletronicos 

• programas eomerclais 

• desenvolvimento 

de sistomas 

• eslabilizadcres 

• modens 

Rua Cesfdio de Albuquerque, 657 
Cidadedos Funcionarios 
Tel.: {085} 239,3819 — CEP 60.000 
Fortaleza — CE, 




QUJkL 
A iMfLnrACF 

QUEESTA 
FALTANDO 

MOSFUMlCHOr 



DELTA SOFT 

M I C ROI N FO RMATICA LT DA. 

Ai. Lorena, 51 6 — CEP 01 424 

Tel. 283.3544/284.5516 

Cx. Postal 1 8708 — Sao Paulo — SP 



E aqueia que ihe devc-ivera 

orazer de Kcai em f rente do seu 

monitor por tempo ilimilado. 

MICROTELA possibilila que voce 
continue com seu TV. liiirando a 
eliminandoos reflexes, ao mesmo 
lempoque aumema a fesotucaoda 
imagem. 

Pornecemos lamoem 
suporie exclusivo para 
monilores. Consul le*nos. 



[CENTRAU 
SUPRI 

temputadewsa 



Formularios Interprint 

• Etiquetas Jac Tab 

• Fitas Impressoras 

• Disq uetes de 5% " e 8" 



05413 ■ RUA LISB0A, 502 TELS.: (Oil) 



282,1602 
64,0519 



ENTREPOST0 TOTAL DE SUPRIMENTOS PARA INFORMATICA 



O 
O 

O 

O 



FORMULARIOS CONTINUOS J O 

HrT 



' DISKETTES, MINI DISKETTES 

• FORMULARIOS OPICIAIS 

• FITAS PARA IMPRESSORAS 
' FITAS MAGNETICAS 

• ETIQUETAS AUTO-COLANTES 
" ARQUIVOS PARA DISKETTES 

■ PASTAS PARA FORMULARIOS 



OFERTA 

formularies conlhiuos 
HOcolunas Azul Verde 

* Cr$ 70.000 
valtoam 27/08/85 



MEHDIf.'LNra IMSpUtTQ E PROMT* EMTHKH 



. ^^^^^^^ .« I en-Mr.- 1! .. ■ -u i^cuimi L.' r 

JEtrx^PRIHT ^ 



FOBMUURIOS E BEPBESENTA?f}ES LTDA. 

flUA ANTONIO DAS CMAGAS. ISO CEP 047U 



548-7137 
523-8563 

SAO PAULO SP 



o 



o 



o 



(kSCv Comercio e Representscoes Ltda. 

PRODUTOS E SERVIC03 PARA PROCES. DE. DADOS 

Discos * Fitas magneticas * Disketes 
* Fitas Impressoras * Pastas * 
Etiquetas * Formulario * Manutengao 
e recuperacao cm discos magneticos. 



Av. Fagundas Ptlno, 745 
Jabaquara 



I s on a: BTS-T21Q 

Sao Paulo - SP 



Voce escolhe seu fornecedor 

pelo prego? 

Pelo atendimento ou pelo prazo 

de entrega? 

Reuna todos os ftens e 
escolha o melhor 

datamidia 

suprimentos 

* disquetes • fitas impressoras 

* pastas *etiquetas 
• arquivos para disquetes 

• disquetes • fitas magneticas 

• formularios 



DISCOS MAGNETICOS MARCA 
CONTRPL DATA @ d) 



oV*» 



datamidia 



• SAO PAULO {01 1) 572 ,1 1 18 

• RIBEfRAO PRETO (016) 625.1571 

• RIO DE JANEIRO (021) 262.9458 

1559 



Suprimentos Prodota 
uma boo impressao do que foi grovado 



0i 



QUME 4 SPRINT 
(importada) 
Crt 70.000 



<* 



CENTRONICS 150/2 
DISMAC (imporladaj 
* CrS 65.000 



FACIT 8000 
POLIETILENO 
CORRIGIVEL 
• Cr$ 35.000 



Pregos vd lidos a 14 Agos to/85 



\jjf P n O DuLU Rua Henrique Ongari. 103 
CEP 05038 — S. Paulo — Tels.: 864-8599 (I in ha ironco) 
Represenlantes: 

Rio do Janeiro: rone ■ 253.3481/Belo Horizonte: tones 225.9871 e 
225.4235/ Curitiba; (ones 263.3224, 262.8632 
Porto Alegre: tones 26.6063 e 26,1319/ Recife: fone 227.2969. 



A*S 



responds 



Ao utilizer o comando "FORMA fit " , 
NEWDOS responds "DONE". Trans firo 
o disquete do drive J para o drive e 
noto que quando dou um RESET, o 
NEWDOS responds "NO SYS"; quando 
peco um DtR, ele responde com um 
"LIB", Pergunto: ha mat's alguma coisa 
a fazer ou o procedimento para a forma 
tacffo 6 outre? Ao pressionar as teclas 
123 (DEBUG}, o NEWDOS responde 
"FILE NOT FOUND". Serif entSo que 
o DEBUG nio existe? 
Vin/cius C, F. Valle - Porto Alegre - RS, 



comando FORMAT apenas formata 
disco, criando o diretdrio e o programs 
dc parti da (BOOT), Um disco assim 
constitufdo na*o possui sistema, e por- 
tanto nunca podera ser usado no drive 
como tarnb&n nSo respondent ao 
DIR, O procedimento correto 6 dar urn 
DIR:1. 

Se o $eu disco de sistema na'o possuir 
o m6dulo SYS 5/SYS, ao pressionar as 
teclas 1, 2 e 3, o sistema responded 
'SYSTEM PROGRAM NOT FOUND", 
Verifique o diretdrio com DIR f Q,S,AJ, 
U e procure o m6dulo SYS5/SYS, ve- 
rificando ainda se a opcao AE do co- 
mando SYSTEM e Y, pois do contra>io 
o NEWDOS nio responded a essas te- 
clas. 



A minha dtivida 4 a seguinte: Em um 
CP-500, com a funcSo SET, como con- 
seguir fazer que duas (ou mats} linhas, 
sendo efas diagonals, verticals e/ou ho- 
rizontal's, sejam desenhadas consecutiva- 
mmite, cu/o ponto inicial seja "unico" 
ou "separation Ex.: 



60 GOTO 60 

E para variar, sutr.titua a linha 20 por : 
20 FOR 1=0 TO 47 






i - H i 



F 



... . 

UmmiTmx hi 



Silvio Cesar da St'tva Ribeiro - RibeirSo 
Pmto - SP. 



Reveja o manual e especialmente as 
funcotfs SET e RESET. Procure anal tear 
os exemplos abaixo que voce com pre en* 
deri a I6gica necessdria para obter os 
resultados que voce deseja : 
5CLS 
10 FOR I =0 TO 47 
20 SET (0,0 : SET (127,47-11 
30 NEXT I 
40 GO TO 40 

Em seguida a esse exempfo, digite 
as linhas: 

40 FOR I =0T0 127 
50SET{I,0> ;SET (127*1, 47) 
60 NEXT I 
70 GOTO 70 

Rode a seguir esse outro exempio: 
10CLS:K=0 
20 FOR I = 47 TOO STEP- 1 
30 K =- K + 1 

40SET(63 + K,D : SET {63- K.I) 
50 NEXT I 



Sou possut'dor de um Sysdata III com 
um drive 5.1/4" de dupia densidade. 
Achei bastante informativos os artigos 
pttbticados no n 9 26 referentes aos si$- 
temas operacionais. No entanto,gostaria 
que voce's me compfementassem as se- 
guin tes in formac&es: 

1) Ouais desses sistemas operacionais 
podem operar com dupia face? 

2) Sou possuidor de um disco NEW- 
OOS 80 2,0. Ha alguma instrucao que 
permita converter esse NEWDOS de face 
simples em um NEWDOS de face dupia? 

3) Quern comerciatiza esses Sistemas 
Operacionais aqui no Brasil ? 

Milton Hidemi Chigashi - Sao Paulo - 
SP. 

1) Todos os Sistemas Operacionais, 
com excecao do TRS DOS, podem ope- 
rar em dupia face. 

2} Sim, basta ajustar os parametros 
do PDRIVE em funcab do seu equipa* 
mento e formatar um novo disco com 
essa nova conffgurapSo. O NEWDOS 
considers a outra face como extensao 
da primeira e, depetidendo da utilizacao 
a ser da da, & provavel que o diretdrio 
unioo tenha que ser extendido. 

3) Esses sistemas podem ser encarv 
trades em (ojas especial izadas ou livra- 
rias, na forrna de cdpia xerocada. 

En via iuu perfluotas par* MICRO SISTEMAS 
SEQ AO MS RESPONDE : Aw. Prwidwt. Wil- 
tort, 165/grupo 1,210. Rio d« Jiniiro. RJ, 



AGORA EM PORT0GUES t 
OS UTILITARIOS MAIS F'AMO: 

DA LINHA APPLE- - 



;os 




POTENCIAL SOFTWARE - 



c i ooa mnea 

L\ ALPHA rLDT 
L ) PIDITTO &OS 

auivas «dhh 

11 TIP 1lH(>i 
LI FLEI TEXT 

OK lliifl(rrt**n 

C ] TVfBFACSB 

■huolucad c 

El APPLE PtKCVl 
C 3 BiACLH VAII 

Sill AfPLfS 
E ] CPLK - GDI 



- Ctt* Tl-.OQQ CAP* 
BD170N OH CDKAH&DB DG DISCO. 

• VTitiTAirto cmr i co f-rttTa, 

- tBIPLICA A VBLOCIOAOff OS ACttIO ll« *B- 

Al« Qll DIOtlDl. 

- 1130 OIEtl D1T riOCBAHACAD BX OH DISCO. 

• fttta tn CQLtf»A« Pfl tb*td aim auitljo - 

> cb FDNTIlfl DE L6TBAB E ¥UKEttOfl EH ALTA- 

VtC • irriLITtfllO D« BHAPii TAMLtf/kYTK ZAP 

r - '*«(' un 00* l4At« PM BIN 0*t DUAL PA*h 

ORPATIVIIL. 

DC DC LCVHAO HAriDU P/PIDCflAHAE Ell EIB1C 



A.ijfflA..noTK?*tiAA. ggrnfAi«- 



Cl PA990 A PASBO 1 - CITKSO ItfTftnCfUTO* tO OS EAEIC C»« 414.040, 

El PAESD A PABDD II - EUKBO S4IPL EKITW T*» OB BAB I C CI« 114.000, 

CI PADLBO A r*0«O lit - C9IID kiJJO- DIOAT1EO DE DOB CB# HO. ODO. 

LI BDPBBCEAPJL'O - EDI TDB/HDlf TADOB DB CRAFlCOE. Ctt* 1 If. BOO, 

LI ACHVOA - PEOCEAMA PANA HAKtUN ConPEOniOSO C*§ 110.000, 

LI BDITO* OB TEirt) - C AETAB , EOL AT0B J 0. t ABB1.A8, ETC CM 49.000, 

t 1 HAI A OlEHtA ■ CAOABTEO E EHI0BAD OH HTiqOETAB CM 14 4.000, 

CI 0ABCO DE OAPO0 * FOBKULA AEUDlVOfl O I VEBBOB CS« 1t0.000, 

C] HUaic* . eaKPOfllCAQ,'fKPEHBflArt/PA<JTA«/r»t'C0CAa CM 140.000, 

C) CaUTA COHE.nABCOB • COBTBOLA^EMITE BKTBATOB CM 114.000, 

El COHBBCT - CDnOHlCACAO H 1 C BO/H I C HO SK Cr,-n CM 944.000, 

■* fMOCRAKAB APL1CAT1*DB CDIBRCIA* ■• | 

El POLKA PCTO/CflHTAtI.CE4Af.. .-Cd«TAB BSC/PAC 



- • 0« PBOCEAMABt BDITO* OB T«KTD» «ALA DIUBTA, BA4CO (I* QAPOfl B ACCfDA, PlftCJOBAH BEPAH AOAPCHTE 00 IETECBAD08 



COEBBLTA. 
BH7BJT fll *. 



A9SIHALE O f-nCHStCAP**. « BWJR 
COH CHJECXW HEP1IHA1- PAJui • 
RDCHlH rUllLPAC 1 AC- CUT* , I .."1 - r». 

cje "»rr * ckp isioo 

CAfTPlHAS — «P* 



■STK CDPCJH 



***• KRAT1B *•* <TABELA DE T*GW*Z,fLS r*r»£lLil > 

1-crrETHcxAL schftviaur 

R. JOflili VILACEL1H JR,B2 — CAHBUI 
FDHE t CH-WJ 03-ft<442 



/MS 



VIMIUV 



RtG.«IN.°0Sl9 



i'CtW 



publigrcQes tEcnicas 

Disponivcis em portugues 

1 - Curso de dBase II 

2 - flplicativos dBase II 

3 - Relatorios dBase II 

4 - Curso de dBase III 

5 - Curso de Lotus I -2-3 

6 -flplicat. Lotus 1-2-3 

7 - Curso de Symphony 
* 8 - Curso de F rameiuork 

9 - Curso de DOS (PC) 
*1 0- Curso de Unix 

1 1 - Curso de linguagem C 

1 2 - Curso de LUordstar 

' €m desenvolvimento 



VCNDflS DISPON(V€IS PfiRfl TODO BHRSIl 

NOVO €ND€R€CO 

Rua Groelandia, 1.750 Jardim Europe 
CEP - 01434 - Sao Paulo - SP 
Telefones: 881-4599 - 881-4032 



CURS0S, 
HARDWARE ou SOFTWARE 

CORRESPONDENCE ou PESSOALMENTE C/AULAS PRATICAS 



por 



ELETRONICA DIGITAL I e II 

- PrStica em KITs + apostila encadernada. 
MICR0PR0CESSAD0RES 

Z80 - 8085 - 808Q - 8086 - 8088 - 6502 

- Pratica nos KITs ZHardwate e Banana 85 + 
apostila encadernada. 
MANUTENQAO DE 
MICR0C0MPUTAD0RES 

TRS80 - CP500 DGT100 - NAJA - SYSDATA 

- Pratica de manutencSo com sofisticados 
equipamentos + apostila encadernada + 
esquema de todos os computadores. 
MANUTENQA0 DE PERIFERIC0S 
DRIVES - IMPRESSORAS - M0NIT0RES - 
INTERFACES 

- Prttica de manutengSo com sofisticados 
aparelhos + apostila encadernada + 
esquemas dos Perifericos. 



INTR0DUQA0 a C0MPUTAQA0 

- Pritica de manuseio e verificac§o das partes do 
computador e suas unidades ; apostila 
encadernada. 

BASIC BASIC0 e AVANQAD0 

• Pratica de programaclo nos computadores da 
"Hardware" + apostila encadernada. 

COBOL PARA MICR0C0MPUTAD0RES 

►Pratica de programacSo nos computadores da 
"Hardware" + apostila encadernada. 

ASSEMBLER ZIL0G e INTEL 
IZ80 e 8085) 
-Pratica de programacao nos computadores 
ZHardware • Banana 85 - CP500 - TK83 - DGT100 



ATENCAO: INSCRICOES ABERTAS 

HARDWARE CURS0S - INDUSTRIA DE INTERFACES - ASS. TECNICA 

- C0MP0NENTES ELETR0NIC0S 

R . SAMPAIO VI ANA, 232 - Rio Comprido - CALL (021 ) 234-7873 - RJ 




[la ADDRESS voce clevora 
qualqucr tipo cIg « 

iflii 
Exclusivo metodo de ensino 
VIDIEOTERCH que se. utiliza da 
mais moderna tecnica VISUAL, 
o video-cassete. 
Edirpdo microcomputarizado. 
Curso de BASIC TOTAL, e de 
APLICATIVDS apple ni. 
TURMAS ESPECIAIS 
PARA EMPRESAS 

FACA SUA RESERVA JA PELOS 

TELEFONES: 

Oil 211-5348 H OU 212-0370 

Video 
Computer 

Connection 

apple " ,D ' ,: " r «n»»f« l » "*•"* w»w»w 

, • if it m \i in til iw Hi Hi * * if (i Hi tii <i Hi Hi J 




PARA PROBLEMAS COM MATERIAL DE 

DESENHO - PINTURA - ENGENHARIA - PAPELARIA - ESCRITORIO 
MAQUINAS P/ESCRITORIO E SUPRIMENTOS EM GERAL 

O BEL-BAZAR onde voce AINDA encontra preco 
ELETRONICO e qualidade de ANTIGAMENTE! 

AV. ALMIRANTE BARROSO, 81 - Lj. "C" 

Tels.: 262-9229- 262-9088- 240-8410 

CASTELO - RIO DE JANEIRO 




ASSINE AGORA! 



Informatics & 
Administracao 



Nome 

Empresa 

Prof issao/Cargo 

Endereco para remessa 

Cidade CEP Estado . . . 

- Assinatura anual 

G Informatica & Administracao Cr$ 62.500 

□ Micro Sistemas Cr$ 79.000 

□ MS + l&A Cr$ 127.000 



Junte a estes dados, cheque nominal a : ATI EDITORA LTDA. 

Rua Oliveira Dias, 153 CEP 01433 - SSo paulo - SP. 
Tel.: 853.7758 e 853.3574 



Lin ha 



TRS-COLOR 



Figuras no COLOR 

Observe o micro criar figuras 
simetricas coloridas com esta di- 
ca de apenas uma linha: 



10 CLS RNU<H):KOR r = TO 9©:C=RN0< 
8):X=RND(A3):y=RND<31>:SET(X,Y,C): 
SET <X,31-Y,C):SET<63-X,Y,C>:SET<63 
-X.31-Y,C):S0UND RND< 128> ,RND< 3 > :N 
EXTrRUN 



Claudio Costa - R J 



Linha SINCLAIR 



Efeito em BASIC 

Esta dica, embora simples, 
produz urn belo efeito na tela 
do seu Sinclair. As linhas 60 e 
70 contem o centralizador de 
textos publicado em MS n? 
40. 

Alexandre Gouvea Longo — MG 



10 


POKE 


16418,0 








20 


CLS 












30 


LET 


A5="MICR0 


SISTEii.; 


' 


40 


LET 


A= 


= 11 








50 


LET 


B = 


=A 








60 


PRINT 


AT A, 15 


-LEN 


A5/2; 


AS 


70 


PRINT 


AT B,i5- 


-LEN 


AS/2; 


AS 


80 


LET 


A^ 


=A+i 








90 


LET 


B = 


=B-i 








100 IF 


B = 


=0 THEN RUN 







110 GOTO 60 



Linha APPLE 



Formate com 36 trilhas 



Rode esta dica e formate seu 
disco com 36 trilhas (16 setores 
a mais). 



Jose" de Lima H. Neto - SP 



5 HOME 

10 POKE 48894, 36:P0KE 46063, 36:P0KE 

44725,144 

15 PRINT "C0L0QUE DISCO A SER INIC 

IALIZADO NO DRIUE" 

20 PRINT "DIGITE : INIT HELLO <RE 

TLIRN>" 



Linha 



SINCLAIR 



Simule o comando 
LIST 

Esta rotina, baseada no programa 
SCAN (MS n? 38, pg. 64), Simula o co- 
mando LIST da linha Apple ou TRS- 
80, listando apenas a linha especifica- 
da: 



16514 


2 J 


00 


00 


16517 


CD 


D8 


09 


16520 


IE 


00 




16522 


CD 


45 


07 


16525 


C9 







Digite este programa-exemplo: 

10 PRINT AT 21 ,0;"NI.)MERO DA LINHA 

20 INPUT X 

30 POKE 1.6515, X- 256* INK X/256) 

-10 POKE 16516, INT (X/256) 

50 CLSi 

60 RAND USR 16514 

70 GOTO 10 

Os enderecos sa"o vdlidos para o TK, 
podendo haver diferencas em outros 
equipamentos. 

FSbio Antdnio R. Corr&a - SP 



Linha TRS-80 



ERROR desaparecido 

Comparando o NEWDOS/ 
80 com o DOS 500, pode-se 
notar que o comando ERRORxx 
do LIB do DOS -500 esta "de- 
saparecido" o que na"o aconte- 
ce com o NEWDOS/80. Para 
solucionar este problema, digi- 
te: 

PATCH <«l<ADD=-5H9,FIND^r0202020;j0. 
CHG=4552524F52> (ENTER > 

Um exemplo: 

Quando em DOS- 500 Ativo, 
digite: ERROR 12<ENTER>. 
Sera" mostrada.a seguinte men- 
sagem: 

Tine Out On Disk Drive 

Luciano Chaves Arantes - GO 



Linha APPLE 



"CALL + HOME" 

Em seus programas, experi- 
mente: 

CALL 63538f HOME 

Ao inves do uso de um ou 
de outro separadamente, junte 
as duas instrucoes e veja o efei- 
to. 

Morivardo Macedo F. Junior — BA 



Linha TRS-80 



MERGE em cassete 

Se voce tern dois programas e quer 
concatenaMos em versa"o BASIC-cas- 
sete, carregue o primeiro programa e 
digite: 



L=PEEK < 16633 >*PtEK ( 16634 > »256-2 (ENTER > 
'0 programa em BASIC terming itois bytes 

antes do inic 10 da memoria dp dados. 

B2=INT<E/25A>:Bl=t-B2o256 (ENTER) 

P0KE1654B,Bl:P0KFI6*'.49,B2 (ENTER > 
'Dvsprotcge o primeiro programa, con- 

i at Knando-o com u spnimda. 



O primeiro programa deve ter os 
numeros das linhas menores que as 
do segundo. 



Luciano Chaves Arantes — GO 



Linha 
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Abertura 
de programas 

Esta rotina criaum efeito mui- 
to interessante para apresentar 
seus programas: 

10 INPUT XI 

20 LET C=INT(<3172)-<LEN Xi/2>> 

30 FOR A=l TO LEN X* 

40 FOR B=l TO 7 

50 PRINT AT B.CiXl(A);Ar B.C;" " 

60 NEXT B 

70 PRINT AT B,C;Xt(A) 

80 LET C=C + i 

90 NEXT A 

Para tornd-la mais incremen- 
tada, altere e acrescente as se- 
guintes linhas: 

35 LET YS=CHRKCODE X*<A>+128> 
50 PRINT AT B,C;Y»;AT B,C»" " 
70 PRINT AT B,C;Y» 

Edison Smejoff - RS 



Linha TRS-COLOR 



Grave a tela 

Ao fazer desenhos em alta resoluca"o, voce deseja guar- 
d^-los. Atravds do SAVE normal voce gravaria os desenhos 
juntamente com o programa. Para terminar com esse pro- 
blema, utilize esta dica que grava uma tela grdfica ou de 
texto em disco ou fita cassete. 



CSAVEM "TELA", I 024, 1535, 11 3 

CSAVEH "1 ELA" , 256*PEEK ( 186 ) , 
p/ tela grafica 

Entre com CLOADM (ou 
LOADM para disco) para chamar 
a tela de volta. Veja como esta 
dica funciona neste programa: 



p/ tela de texto 



256 *PEEK< 183) -1,413 



,96 



.29 

6+8 



10 PM0DE 4--C0L0R 0, 5 :PCLS:SCREE 

,1 

20 LINE <46,16>-<2©6,176>,PSET, 

CIRCLE <126,96>,80.5:PAINT (126 

>,5 

30 FOR J=0 TO 360 STEP 6:A=J/57 

:LINE <126+80«SIN<A>,96>-(126,9 

0«COS<A) > ,PSET:NEXT:SOUND 200,5 

40 IF INKEYS="" THEN 40 

50 CSAVEM "1ELA",256»PEEK<186> , 

*PEEK<183>-1,413 



Inserida essa linha de progra- 
ma, a dica economiza memoria. 
Lembre-se de trocar o CSAVEM 
por SAVEM (no caso de disco) e 
note que no lugar de "Tela" 
pode ser utilizado qualquer ou- 
tro nome de ate oito digitos. Di- 
gite: 

PM0DE 4:PCLS 

Retroceda a fita, inclua estas 
duas linhas e de RUN: 



1 CLOADM :P MODE 4:SCREEN 1,1 

2 GOTO 2 



Ciaudio Costa - RJ 



Linha 
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Formata valores 

Esta dica formata valores de 
ate 14 digitos que sa"o listados na 
impressora: 

CLEAR 2000 

10 INPUT"YAL0R ";VM:IF VH=0 THEN VFt= 

0,00 " ELSE G0SUB 100 
20 LPRINT VF*:GOTO 10 

100 V4=MID*(STR*(MH+.00©1>,2,17>:PX=I 
NSTR(Vi,".">:VI*=LEFTi<Ui,PX-l) 
110 VI4 = SPACE4(12-LEN(VI4>>+"I*:VFi=rl 
IOi(VIl,10.3>t","+hIDi(Vi,PZ+l,2)«LEF 
T*(STRi(Vtt>,l> 

120 FOR IX=7 TO 1 STEP -3:IF MIDSCVIl 
,IZ+2,1)=" " THEN 0FS=SPACE$(1B-LEN(V 
F»))+VF*IRETURN 

130 WFi=MID»(WIS.IX,3)+"."+VF»:NEXT I 
XI RETURN 

MSrcio Antdnio Dias — MG 



Linha SINCLAIR 



Hi FORTH 

Se voce tern um TK-85 ou consegue simular o HIGH 
SPEED e possui o compilador FORTH, nao deve ficar 
sem esta palavra: HISAVE. Ela faz uma c6pia do compi- 
lador em HIGH SPEED (4200 bauds). 



CREATE HISAVE 



2AC:,DP,2c.'t:,4014, 
CDC,52A4,CDC,20[)5, 
CDC, 52A4, NEXT 



__ln 

CliG0> 




m 




Esta palavra tern que ser criada em hexadecimal. Para 
utilizd-la, basta digitar HISAVE e <NEWLINE>, com o 
gravador anteriormente pre- 
parado para gravar. Para car- 
regar tecle: 



RAND USR 8630 

Se voce teclar <BREAK> 
durante a gravacao, o sistema 
se reinicializa nao voltando ao 
BASIC. 

Italo Jurisato Junior — SP 



□ 

y 

i 
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Envie suas dicas para a Redacao de MICRO 
SISTEMAS na Av. Presidente Wilson, 165 
- grupo 1 21 0. Centra, R io de Janeiro, R J. 
CP. 20030 
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PEEKs e POKEs I 

Posicione o endereco de ini'cio dos pro- 
gramas BASIC, na pagina grafica numero 1 
(P CLEAR 1): 

POKE 25,12:P0KE 26,i:P0KE 3072, ©:NEW 

Posicione o endereco de ini'cio dos pro- 
gramas BASIC, na pagina grafica numero 2 
(P CLEAR 2): 

POKE 25,18:P0KE 26,1 (POKE 4608,0:NEU 

Na pagina graTica numero 3 (P CLEAR 3): 

POKE 25,24:P0KE 26,1:P0KE 6144,0:NEU 

Na pagina graTica numero 4 (P CLEAR 4): 

POKE 25,30:POKE 26,1:P0KE 7680,0:NEW 

Aumente a memoria disponivel para 
programas BASIC (sem a utilizaga"o das pi- 
ginas graTicas): 

POKE 25,6:P0KE 26,1 (POKE 1536,0:NEU 

Obs: Estes POKEs nao funcionam com o 
INTERPRET ADOR COLOR DOS. 

Marcel T. da Fontoura — RJ 
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REM 
Condensada 

Quando se esta desenvolven- 
do um programa extenso em 
Assembler, e comum ter que se 
digitar vdrias linhas REMs para 
o armazenamento de dados ou 
do proprio programa. Isso aju- 
da o "pirata", pois ele tern aces- 
so direto no vfdeo a essas li- 
nhas o que facilita o disassem- 
blamento do programa. 



9000 PRINT "NUMERO 0E LINHAS' 1 " 

'7005 INPUT N 

9010 hOR I- 1 IO N-l 

90 IS LEI 0UNr = PFEK 1 6S1 1 *256»PEEK 

16512 

90i>0 I El I0I = 1A515»QUNT 

902S LEI I0r2^PErK TO t *256»PFEK ( TO 

1*1 >*I01 16511 

90 10 POKfc 16511, I0T2-256«INT()0T2/ 

256 ) 

90M5 P0K1 16f.l2, INK 10T27256) 

9040 NEXI I 



Rode esta rotina e entre 
com o numero de linhas a se- 
rem unidas (sempre com a pri- 
meira linha do programa) e fa- 
fa o pirata "suar" um pouco 
mais. 

Frederico dos Santos Liporace — R J 



' v 



lEnsaciem 
erro 



Em MS n9 28, pae. 59 e 60, no programa Cadastro de Clientes, 
execute as seguintcs altcracQes na listagem: 

linha 002 - o CLEAR e 20 000 c nao 2000; 
linha 005 - falta o sinal (:) entre "TELEFONE..." e MS; 
linha 415 - falta o sinal'@no PRINT 652; 

linha 705 - falta o sinal (:) entre J = 1 e GOTO720; usa 

linha 3000 -o sinal (:) no final da linha nao altera o funciona- 
mento do programa, mas pode ser retirado. 
Complemente as altcracoes, lendo a Mensagem de Erro do nu- 
mero 34 de MS, pa'gina 66. 



Em MS n? 42, pag. 70, no programa Lista Telefonica, na li- 
nha 120, houve erro de impressao. A linha correta 6: 

120. ..K-7...-3" 



Em MS n? 43, pag. 61, no programa Arquivo-Agenda, as li- 
s 16514 e 16522 sai'ram com algumas partes ilegi'vcis. As li- 



nha 

nhas corretas sao: 



1.6514 
16332 



2 A 
Di 



40 
D6 



E5 ii 
02 ED 



2i 

1(0 



00 
C9 



19 



Em MS n? 44, pag. 54, 
no programa Tatuzao, as li- 
nhas 350, 360, 370, 375, 
380 e 470 sai'ram com falhas. 
As linhas ficam assim: 



:1S0 Lfcl «-AH<IMKETt-"X" OH INK 
EY5-"Z" OR IHKEY*-'T."> MID t><?2> 
-<<IHKEY*-"0" OK XKKE»S-"U" OR 1 
NKEY*-"E") UNO B>1) 

:I60 LCI B-81 <<UIKEYt«"D" OR INK 
E1»="C" OR INKtY*="E"> AMI) U<31> 
-(< INKEY»-"A" OR 1MKI:Y»""7" OR I 
NKEY*-"0"> MID B>1) 
370 II M»<A.H>-" n " THEM bOSUB 1 
10 

3/!i IF INKEYi-'S" THEN GOSUB 28 
00 

300 II A-l AMD nt<n.H>''t3~ I MEN 
GOTO \O0O 
1/0 LIT A»( I > MHPRl.PRi' IO I'R? 



Em MS n? 44, pa'g. 59, no programa Letreiro no Micro, a li- 
nha 1 65 14, do bloco Assembler, apresentou erros. O certo e: 
16514 2A0C 40 11 0A01 19 11 
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Seminario de Microcomputadores 
Rio de Janeiro 12 a 16 de Agosto 



NUCLEO DE COMPUTAQAO ELETRONICA 

Universidade Federal do Rio de Janeiro 

OBJETIVOS 

Difundir o microcomputador como ferramenta de uso cotidiano e profissional e 
incentivar o desenvolvimento de software aplicativo e a sua comercializagao. 



TEMAS 

Aplicacoes de microcomputadores; Desenvolvimento de software aplicativo; 
ComercializacSo de software; micro na educacao; Tendencias de arquitetura 
de micros e de redes locais; MicroeletrOnica; Tecnologia Nacional de 
Informatica. 

EVENTO ESPECIAL 

4.° Microexposic3o de Fabricantes Nacionais de Micros, Perifericos 
Software e Suprimentos 

EVENTOS PARALELOS 

II SACI - Seminario de Aplicacoes Cientfficas em Informatica - 
14 a 16 de agosto 

III SEMAP - Seminario de Microinformatica na Administracao 
Publica - 14 e 15 de agosto 



jNFORMACOES 



Nucleo de Computaciio Eletronica 
Caixa Postal 2324 - CEP: 20001 - RJ 
Tels: 290-3212 ramal 248 e 270-2438 




JUNIOR, M. M., 30 programs 
para TRS-80 Color Computer 
& similares nacionais, Editora 
Ciencia Moderna Computacao. 

Esta e* uma publicagao que vi- 
sa, atraves de programas simples, 
mas eficientes, proporcionar um 
r£pido conhecimento das poten- 
cialidades dos micros da linha 
TRS-80 Color. Todos os progra- 
mas que constam no livro foram 
escritos em BASIC e rodam em 
micros com apenas 16 kb. O Acro- 
bata Colorido; Desarme a Bomba; 
Torres de Hanoi e Sinfonia sao 
alguns dos programas apresenta- 
dos. 



ABREU, C. A. C, Programas 
comerciais da linha Apple para 
pequena cmpresa, Edicoes 
Microkit. 

A finalidade deste livro e levar 
o usuario a desenvolver seus pr6- 
prios programas, nao se limitando 
a ser uma coletanea de comandos 
e funcoes. Sao apresentados os 
programas Utilitario de Arquivos; 
Emissao de Faturas e Duplicatas 
e Vendas a Varejo, acompanhados 
de uma an£lise minuciosa que visa 
simplificar o aprendizado da pro- 
gramacao, alem de orientar o pe- 
queno empresario no uso do com- 
putador de forma economics. 



SANTOS, N. N. S., Aldm do 
BASIC — Linguagem Assembly 
para a Linha Sinclair, Editora 
Campus. 




Aldm do BASIC se propoe a 
ensinar linguagem de m^quina 
para micros da linha Sinclair de 
uma maneira didaTica, coloquial e 
simples, evitando as f6rmulas m&- 
gicas. O livro apresenta as primei- 
ras instrucoes Assembler em pro- 
gramas de complexidade cres- 
cente, alem de um grande numero 
de exerci'cios e rotinas em lingua- 
gem de tricjquina que facilitarao 
o aprendizado do leitor e enri- 
quecerao seus programas. 



HANCOCK, L.; KRIEGER, M., 
Manual de Linguagem C, Editora 
Campus. 




Ao contrario da grande maio- 
na dos livros sobre linguagem C, 
este manual e destinado tambe"m 
aos principiantes, programadores 
que tenham um mi'nimo de co- 
nhecimento sobre programacao. 
Para isto, o livro traz, entre outros, 
capi'tulos bem elementares como: 
O que e C; Como e C; Tipos Pri- 
maVios de Dados e Estruturas. 



STEIN, B., Evoluindo no 
BASIC TK, Editora Aleph. 

Evoluindo no BASIC TK e 
uma maneira divertida e instrutiva 
de se aprofundar nesta linguagem, 
apresentando programas didaTi- 
cos, utilitcirios e, e claro, jogos. O 
livro e dividido em sete capi'tulos, 
onde sao abordados assuntos do 
tipo: como fazer ti'tulos para 
vi'deo; como u til izar a impresso- 
ra; como usar todas as funcoes 
especiais do TK-85 e ate mesmo 
como fazer poesia no micro. 
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Faria Lima, 1451, conjunto 31, 
CEP 01451, Tel.: 813-4555, Sao 
Paulo. 

Ciencia Moderna Editora Ltda. — 
Av. Rio Branco, 156, si. 127, CEP 
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rao de Itapagibe, 55, CEP 20261, 
Tel.: 284-8443, Rio de Janeiro, 

Edicoes Microkit — Rua Visconde 
de Pirajd, 303, grupo 1005, CEP 
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CIP40© 

MiCROCOMPUTADOR=COLOR 

VOCE TBI QUE ESTAR PREPARADO 
PARA SE DESEKV0LVER COM OS 
N0VOS TEMPOS QUE ESTA0 Al". E 
CP 400 COLOR t A CHAVE DESSA 
EV0LUCA0 PESS0AL E PROFISSIONAL. 



TORQUE? 
TORQUE 





UMCOMPITADOR 

PESSOALDE 

TEMPO INTEGRAL: 

LTIL PARA A 

FAMfUA T0DA, DIA INTEIRO. 

NA H0RA DE SE DIVERHR, POR 
EXEMPLO, E MUTTO MAIS EM0CI0- 
NANTE PORQUE, ALEM DE 0FERECER 
JOGOS INEDIT0S, 1 UNICO COM 
2 JOYSTICKS ANAL0GIC0S DE ALTA 
SENSIBIUDADE, QUE PERMITEM M0- 
VLMENTAR AS IMAGENS EM TODAS 
AS DIRECfiES, MESMO. iNA H0RA 
DE TRABALHAR E ESTUDAR, CP 400 
COLOR MOSTRA SEU LAD0 SEHOl 
MEM0RIA ECPANSfVEL, PORTA PARA 
COMUNtCACAO DE DADOS, SA0)A 
PARA LMPRESSORA. E UMA OTLMA 
NITIDEZ COM IMAGENS O>L0RJDAS. 

COMO SETUD0ISS0 NAO 
BASTASSE, A PROLOGKA AINDA 0FE- 
RBCE A GARANTIA DE QIJMJDADE 
DE QUEM E liDER NA TECNOLOGIA 
DE C0MPUTAD0RES, E PRECO 
MAIS ACESSfVU NA CATEGORJA 

NUMA ERASE: SEV0C6 NAO 
QUISER CHEGAR ATRASAK) A0 FU- 
T\ VJ. i , COMPRE SEl' CP 400 COLOR 
IMEDIATAMENTE. 

BMOdU) E INTEL1GENCU NUM 
BQCIPAMENTOSO. 
• MICR0PK0CESSAD0R: (WE COM 



ESTRLTURA tNTERNA DE 
IOBrrSKa<>CKDEFREQi!ENClA 
DE ATI-]. 6 MHZ. 

• POSSIBILTTA USO D£ Alt 

9 CORES, E TEM UMA RESOLU^AO 
GRAFICA SUPERIOR A 49.000 
PONTOS. 
•MEM6RIA ROM: I6K BYTES 
PARA S1STEMA 0PERACIONAL E 
LVTERPRETADOR BASIC. 

• MEM6RIA RAM: CP 400 COLOR 
ESTA DlSPONfVEL EM D01S MODEL0S: 

• MODEM) 16K: 
EXPANSfVELA 
64KB\TES. 
• 'MODEL064K: 

* ? ate wk eras 



ESSORA SERIAL 




QUAND0USAD0 
COM NOVO 
DISK-SYSTEM, 
CP450, 
0CP 400 COLOR DISPOEDE 
CARTUCHOS DE PROGRAMAS COM 
m BYTES DECAPAODADE, 
QUE PERMTTEM CARREGAMENTO 
INSTANTANEODE JOGOS, 
LLNGUAGENS E APUCATIVOS COMO: 
BANCO DE DADOS. PIAN1LHAS 
DE CALCULO, EDITORES DE TEXTOS. 
APUCAmOS RNANCEIROS, 
APUCATIVOS GRAFICOS, ETC. 
SAfi)A SERIAL RS 232 C QUE 
PERMm- COiMUMCACAO DE DAIX1S. 
ALEW DO QUE, ATRAVES DESTA 
PORTA, VOCE PODE C0NECTAR 



QUALQUER LMPRESSORA SERIAL 
OU ATE MESMO 
IOKMARUMA 
REDEDETRABA- 
LH0C0M 
OUTROS MICRO! 
•PORTA PARA 
GRAVADORCAS- 
SETE COM GRAVACA0 E LEJTl IRA 
DEALTAraXXIDADE. 

• SAflJAS PARA TV EM CORES E M0N I 
TOR PROFISSIONAL. 

• DUAS ENTRADAS PAR.V JOYSTICKS 
ANALOGICOS QUE OFERECEM 
INFINITAS POSigOES NA TELA, 
ENQUANT0 OUTROS TEM S0MEMTE 
SDIREgOES. 

• AMPLA BIBUOTECA DE SOFTOMtE 
JADESPON^'EL. 

• ALIMENTAgAO: 1 10-220 VOLTS, 

VEJA, TESTE ECOMPRE 
SEl" CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROlJOGICA. 

TECNOLDQA ■» 
PfWXOGICA 




CQMPUTAOORZS PESSOAiS 

MJA PJOLOVCU. «0 VtlA SCCOflflO 
SAO FAUIQ. SP. G£P W?» 




QUEM TEM UMJEM FUTURO 




lanjja no Brasil 

o micro pessoal 

demaiorsucesso 

no mundo. 

A paflir de agora a hisiona dos 
micros pessoais vai ser coniada em duas 
panes: antes e depois do TK 90X. 

TK 90X e, simplesmente, o unica 
micro pessoal lancado no Brasil que 
merece a classificacao de "software 
machine": um caso raro de micro que 
pela sua facilidade de uso, grandes 
recursos e preco acessivel recebeu a 



atencao dos cnadores de programas e 
periteric em todo o mundo. 

Pard voce ter uma ideia, exisiem 
mais de 2 mil programas, 70 liwos, 30 
penfericos e inumeras 
revistas de usuanos disponfveis 
para ele internacionalmenta 




E aqui o TK 90X ja" sai com mais de 
100 programas, enquanto outros estao 
em fase final de desenvolvimento para 
Ihe dar mais opcoes para trabalhar, 
aprender ou se divenir que com qualquer 
oLHro micro. 

TK 90X rem duas versoes de 
memona (de 16 ou 48 K). imagem de 
alta resolucao grifica com 8 cores, 
carregamemo rapido de programas 
(controlave! pe!o proprio moniiorl, som 
pela W, leiras maiusculas e minusculas 
e ainda uma exclusividade: acentuacao 
em portugues. 

Faca o seu programs: peca ja uma 
demonstracao do novo TK 9QX, 



Preco de lancamento* 
IB K - Cr$ 1.499.850* W K CrS 1.74a850 

/MICRODIGIML 



Chegou o micro 
cheio de programas. 




